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SMALLTALK-72 INSTRUCTION MANUAL 

Adele Goldberg and Alan Kay, editors 
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The Smalltalk-72 instruction manual is intended for use by those persons with on-line access to the 
Xerox Interim Dynabook. The first two chapters consist of an introduction to some of the methods 
used for interacting with the Smalltalk system and for creating, editing, saving and retrieving 
Smalltalk programs. Chapter III goes deeper into the basic concepts from which everything else in 
Smalltalk is built. These include the method of evaluation of messages, message sending and 
receiving, and the notion of classes and instances. 

Many classes have already been built for the user's convenience. These include the various classes for 
names, arithmetic, information storage methods, text display, and graphic control. The definitions of 
all of these basic classes is given in Chapter IV; Chapter V then presents a number of interesting 
examples that use these basic classes. Chapter IV also describes utilities already provided the user for 
editing definitions, saving and retrieving files of information, viewing definitions, testing values, and 
reading input devices. 
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The Smalltalk system described here was designed in the summer of 1972 and first conversed haltingly 
with a user late that fall. It was released for more general use at the Xerox Palo Alto Research 
Center (PARC) in spring 197 3 when the first "Interim Dynabook" (a name for the current working 
^version of a small computer system) became available. 


This manual is intended for use by those persons with on-line access to the Interim Dynabook. As 
such, it employs a tutorial style that directs immediate experimentation with a Smalltalk system; it 
ialso maintains a somewhat informal dialog about expected results of such experimentation. There are 
references to peripheral devices, such as a keyset, a mouse, a display screen, and a disk, that have 
meaning mainly in the context of the Interim Dynabook. Furthermore, the manual references disk 
files that are needed in order to follow the suggested sequence for experimentation and provides 
information on how to obtain these files. Such information is only useful to those persons having 
access to the Smalltalk system library. 


The purpose of making public an instructional manual about a language implemented on a computer 
not generally available is to ease the distribution of instructional information to school-age students 
(no younger than high school age) who will, in fact, have access to the Smalltalk system and materials 
noted here. Because an attempt is made to describe graphic results of running example programs,, 
readers without access to the Smalltalk on-line materials may still gain some information about 
Smalltalk by browsing through these pages. Furthermore, the manual may assist these readers in 
developing their own experimental Smalltalk environment. 


hard to develop the systems described in this manual and accompanying documents—the design and 
implementation of the Smalltalk language, real-time music synthesis, animation, retrieval methods, 
color graphics, and network communications. We take space here to mention their names: Dan 
Ingalls, Chris Jeffers, Ted Kaehler, Diana Merry, Dave Robson, John Shoch, Dick Shoup, and Steve 
Weyer of LRG; David Boggs, Bill Bowman, Bob Flegal, Larry Tesler, Truett Thach, and Bill Winfield 
of System Science Laboratory; and Patrick Baudelaire, Larry Clark, Jim Cucinitti, Peter Deutsch, Ed 
McCreight, Bob Metcalfe, Mike Overton, Bob Sproull, and Chuck Thacker of the Computer Science 
Laboratory. 
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PREPARING A BASIC SMALLTALK DISK 

There exists a disk pack that contains the Basic Smalltalk System as described in this manual. To 
save on disk space, only the main files have been placed on this disk. These include the Smalltalk 
programming system including the windowing functions, an editing facility and printing routines, and 
some Smalltalk font files. Also included are files that contain the sample class definitions presented 
in the manual: „ 

boxes, fontfns, nwindowfns , simpulafns, turtlefns, 
windowfns, xydic, xfer, xyfns, xplot 

Not included are all the files needed to run the music, animation, findit, and editfont frameworks. 
These can be retrieved onto your disk either (1) by transferring the files noted in the documentation 
on the various frameworks from a disk that already contains them, or (2) by executing one of the 
following (included) command files: 

animationget .cm 
finditget.cm 
finditvget.cm 
musicget.cm 
edit font get.cm 

The format for executing a command file is 
@<filename>@ <return> 


To update your files, either use a Basic Smalltalk disk for transferring files, or, if you have access to 
the archival file system, retrieve a file named 

< smalltalk>smallmanual.cm 

If you execute it as a command file, your disk will be updated with the Basic Smalltalk disk files 
listed above. 
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Chapter I. 

INFORMAL ORIENTATION TO THE SMALLTALK SYSTEM 


Introduction 

This manual is intended for use by those persons with on-line access to the Xerox Interim Dynabook. 
As such, it employs a tutorial style that directs immediate experimentation with a Smalltalk system; 
it also maintains a somewhat informal dialog about expected results of such experimentation. 
Chapter I demonstrates some of the methods used for interacting with the Smalltalk system; it 
includes the use of display graphics, dialog windows, and font editing yindows. 

Chapter II continues this introduction by demonstrating methods for creating, editing, saving and 
retrieving Smalltalk programs. It then begins specific instruction on the development of Smalltalk 
class definitions, beginning with the class box, then expanding a box-shape into any regular polygon 
(the class polygon ), and continuing with methods for communicating with instances of the class 
turtle. Included in this chapter is definition of the set of special symbols used in Smalltalk; some 
attention is paid to the idea of message sending and receiving. Finally, this chapter describes the 
class dispframe y and presents a number of ways to place text on the screen and to sketch with a "pen” 
and a "paint brush". 

Chapter III goes deeper into the basic concepts from which everything else in Smalltalk is built. 
These include the method of evaluation of messages, message sending and receiving, and the notion of 
classes and instances. One part describes subsequent presentations of basic class definitions. 

Many classes have already been built for the user's convenience. These include the various classes for 
names, arithmetic, information storage methods, text display, and graphic control. The definitions of 
all of these basic classes is given in Chapter IV; Chapter V then presents a number of interesting 
examples that use these basic classes. Chapter IV also describes utilities already provided the user for 
editing definitions, saving and retrieving files of information, viewing definitions, testing values, and 
reading input devices. 

To Get Started 

# 

Place your Smalltalk disk in the machine, press "run" on the disk drive, and when the "ready" light 
appears (yellow light), press the "bootstrap" button (the little one located near where the wires enter 
the back of your keyboard). The screen will go blank for a second and then show you some 
information having to do with the particular machine configuration you are using. You are talking to 
the Interim Dynabook operating system. Type: 

QsQ <return> 

<§ is typed by holding down both the key marked 'SHIFT' and the '2' key. There will be a flash and a 
rectangle (window) will appear with text in it 

A Smalltalk Window 

If you are on a color machine (your screen background has color rather than white), you should type: 


©c$© Oetura> 
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The Mouse 

The little rectangular object with three buttons that usually sits to the right of the keyboard is called 
a mouse. Move it around while watching the screen. An arrow (mouse cursor) will be moving in 
response to it. This is how we point to objects on the screen. Smalltalk constantly "asks" the mouse 
where it is. A little bit further on we will explain how you can ask the mouse the same questions. 


In Case of Disaster 

In case of any disaster, first push the <escape) key (marked 'ESC* and located in the upper left corner 
of the keyboard). Try to put the mouse cursor in a displayed window or, by moving the mouse around, 
try to wakeup a "hiding" window. If that doesn’t help, then try typing <shiftXCtrlXescape). That 
is, press the key marked ’ESC’ while holding down the keys marked ’SHIFT’ and 'CTRL’. Finally, as a 
last resort, press the "bootstrap" button again and go through the above sequence. 

Talking To Smalltalk 

If you are on one of our color machines then move the mouse so that the cursor travels all the way off 
the bottom of the screen. A white rectangle (a Smalltalk dialog window) will appear. It contains a 
message. Move the cursor into the window. If on a black-and-white machine, simply move the mouse 
so that the cursor travels into the rectangular frame at the bottom of the screen. 

A small, flashing image of the Interim Dynabook will appear—this means Smalltalk is listening. To 
test this, type: 

3+4 ! 

The > <do it) character is marked ’LF’ on the upper right of your keyboard. It is used to tell 
Smalltalk that this is the message you really want it to do. Now try the following: 

3*4\ 

is how we express the sign for multiplication in Smalltalk. Try: 

355.0/113 ! 

The result shows a well-known number and the accuracy of Smalltalk's fractional arithmetic. 

c*'"’ '■ r 4 '' . 

Helpful Notes 

Smalltalk will only listen to you through a window when the cursor is in it. Any characters typed 
when you are out of a window will be saved until you place the cursor in a window. Try taking the 
cursor outside of the window and typing 3+4. You will not see the characters appear in the dialog 
window. Now move the cursor into the window. The characters ’3 + 4’ will appear in the window. 
When you have learned to create multiple window's, you might repeat this experiment to prove to 
yourself that the characters will indeed appear only in the window containing the cursor. 

Once you start typing characters in a window, Smalltalk will wait for you to type ! before any window 
wakes up again. So, if you inadvertently move the cursor out of a window while you are typing, 
Smalltalk will continue to listen in that window. 
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Deleting (backspacing) of unwanted characters is done with the ’BS’ key located on the upper right of 
your keyboard. 

If you inadvertantly make an error of some kind, which is then sent to Smalltalk by saying ! (<do 

it>), a diagnosis window will appear with a message that, at this point, will probably be obscure. 

¥ 

To see this, try typing a symbol for which Smalltalk does not yet have a meaning, such as: 
mumble \ 

A diagnosis window will appear. Note that the prompt character (the Interim Dynabook image) does 
not flash. Once a diagnosis window appears, it listens to you until you return to your previous 
context. To get back to your previous context, either type: 

done l 

or the shorter form: 

<ctrl> D 

typed by striking the ’D’ key while holding down the key marked ’CTRL*. 


Try A Turtle 

Turtles are little beasts which crawl around on the screen and can leave a variable width tracing of 
where they have been. Smalltalk line drawings are done with turtles. 


Smalltalk can have many turtles. Each is created as an instance of a group or class we call turtle . 
One, © (called ’’smiley”), has already been created for you. It is typed by holding down both the key 
marked ’SHIFT’ and the ’2' key (i.e., the @ sign which has a different printing representation in 
Smalltalk than it does in the Interim Dynabook operating system). 


As with all Smalltalk objects, © can receive a variety of messages asking it to do ’’turtlelike” things 
(such as ”go forward some number of steps”, ’’turn some number of degrees”, ...), and answer 
reasonable questions (such as "what kind of thing are you?”, ’’where are you”). Type: 


© go 100\ 

© is ?J 

© turn 90 go 100 \ 


A vertical line should appear. 

? is typed holding down both the 
’SHIFT* and *6* keys. 

Is the answer (turtle) reasonable? 

Did what happened make sense? 


To redo a previous statement, type: 


redo n I 


where n is the number of transactions (visible images of the Interim Dynabook) back from where you 
are. If you type: redo 1 ! at this point, the © turn 90 go 100\ message should be re-sent to 
Smalltalk and another line will be drawn on the display screen. If you want to redo the previous 
statement, simply type the equivalent statement: 

redo! 




i 
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Try 

© erase homel Clears the screen, brings the 

turtle to its center position, 
and points the turtle upward 


do 4 f© go 100 turn 90) ! Will make a square 

© erase home. 

for i *■ 1 to 200 do (© go i*2 turn 89)! To get a “squiral". 

The text line change in the above transaction is obtained by pushing the key marked 'RETURN after 
the message home. This "carriage return" does not affect anything except the appearance of the text 
in the text window. The period is a delimiter, signifying the end of a message. It is generally good 
practice to include periods when stringing together several complete messages. Note that, alth _°ue h 
the period signifies the end of the message, you still need to type ! <do it> to actually send the 

message to Smalltalk. 

Notice that, as a result of the above messages, the black frame around the window has disappeared. 
The window has not been destroyed. Merely, ©'s drawing area overlapped with the window area, and 
hence erased much of the window information. None of that information is lost. Move the cursor off 
and then back into the remembered window area, refreshing the window display. This erases any part 
of the turtle drawing that overlaps the window. Any turtle lines inside the window will scroll (move 

up) whenever the text scrolls. 

You have also just used two Smalltalk iteration methods: do and for. Each is a method for counting 
the number of times a message should be evaluated. In the more general method for , the iteration 
counter (in the above example, the counter is i) can be used as part of the message (in the examp e, i 
is used to help determine the distance the turtle will travel). 



© erasel 
© goto 100 lOOi 


Is a line drawn to the top left quadrant? 
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Type mx. Then, before typing the I, place the cursor somewhere in the screen and type: 

I 

m 

Similarly, try 

► ^ 

myl 

Smalltalk should send you back reasonable numbers for m(ouse)x and m(ouse)y, the display 
coordinates of the mouse cursor. Now type: 

© goto mx myl 

and a line should be drawn to the cursor position. You have hooked up the mouse to the turtle. A 
simple drawing program can be written by saying: 

repeat f© goto mx my) l 

Move the mouse and a trail will be left behind. You are in an "infinite” loop (the © goto mx my will 
repeat forever). To escape from the loop and to get Smalltalk to listen to you again, press the key 
marked ’ESC' in the upper left hand corner of your keyboard and move the cursor back into the 
window. 

Try 

©’s width *- 3. repeat f© goto mx my)\ 

The *s is typed by striking the key marked 'S' while holding down the key marked <CTRL>. 

A more involved drawing program might use the buttons on the mouse to control the turtle’s ink color, 
width, and erasure. More about drawing programs later. 

Dialog Windows 

All communication to a Smalltalk object is done through windows which contain the most useful 
editor for that object (you have just been using a dialog window). The editor for a picture object is a 
kind of painting and drawing aid; the editor for a paragraph of text handles characters; the font 
editor allows the character defining dots to be easily changed; and so forth. 

Every window can be moved, stretched, and deleted from the screen. Other abilities depend on the 
particular kind of window with which you are dealing. A collection of related windows (containing 
pictures, text) is a document which can be automatically archived in many different ways for later 
retrieval and editing. 

For example: 

a. Move. Move the cursor into the upper left hand corner of the window you are in and press down 
the top button. The window should go blank. You may have to play a little while holding down the 
button in order to find the actual corner. The tip of the cursor (the upper left corner) must be in the 
window corner. 

b. Now point the cursor somewhere else on the screen and push the top button briefly again. The 
window will reappear in the new position. The upper left corner of the window can not be forced off 
the physical display screen; however, the other parts of . the window can be slid off the display as a 
method for pushing them out of the way until needed again. 
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duetto The ^revious^niiove^ do e anoTher r rnove C furUier n to thTle^t 7™?*°*- 7 ^ fa ° ff the 

The next button push will change the boundaries of the • a ^ hand Side visible again.) 

position will coincide with the cursor Trv it Vo wlnd ow so that the new lower right corner 

wide or 32 units high. ** ^ Y ° U Can not « row th « window smaller than 32 units 

d. Create. A new dialog window will he* r , 

existing dialog window (pointing the cursor and ° r . yOU by grabbing the lower lef t corner of an 
will appear in the upper left portion of 77^7^7 ** ^ The " ew 

e. Position the cursor inside the new window and try typing 3 + 4\ . 

, remaining dialog window can not be deleted. 


| Move 


Delete 


| Create 


Grow 


of all other 5 wiifdows. d ° WS " ^ Wlnd ° W that sees the mouse cursor wakes up and displays itself on top 

each windot'^ItTs^rTate^The Endows 0 win pHe out™ f diSP ’ ay SCreen ' Unless you move 
dialog window is to have a Uw window appear at a 1 V °"® An ° ther way to ^fine a 

cursor could blink on and off, waiting for you to cress a ^ P T t0 by the mouse cursor. The 
cursor location is the place to put the new dialoe windn ""T** t0 indicate that th * present 

about Smalltalk, you might make this change to your personal Smalltalk system. 0 ' 1 ^ ^ 

A First Note on Smalltalk Classes 

Every entity in Smalltalk's world is called an nhieet Of * 

wtth each other by sending and receiving messages Each^ 7 TememheT things and communicate 
of objects to receive messages and^p^uceTepTies!' EaCh eXamP ' e ^ PfeSent demon ^ates the ability 

example, is an objfct. iVi'sT membwof the^ssTur^r AH ° bjeC b tS d ° SimUar things )‘ ®. for 
lines on the display screen. The class handles ell e ^ A members of thls class are able to draw 
replies) for every object which belongs to it. communication (receiving messages and producing 

SnSlT w^h thrmotetUr M ~«" « "■* to a uifndo. by 

the message by moving to a new screen location Th \ ^ member ° f the class -Ponds to 

class, or deleting (erasing itself from the screenj ^The V 7’ Creat ‘ ng a new memb er of the 
capturing and editing Smalltalk messages The \ H ° bj ! Cts are dlal °g windows, capable of 
editor for designing display characters. CX examp e ,s a f ont window which contains an 
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Font Editing Windows 


Type 


filin 'fontfns'l 


filin is the Smalltalk method for reading messages stored on a disk file. Reading the file takes a 
while. The display screen is pgxposely turned off (becomes blank) to speed up the reading process. 


3$ 

You now have routines for creating windows in which editing means drawing in a matrix of black and 
white dots. These windows contain magnified views of display characters. Any character font (the 
design of the display characters) can be described as a matrix of black and white dots. Using the 
mouse cursor in a font window, you can draw in a character font of your own choosing. Moving the 
cursor to a dialog window, you can immediately view font changes within the context of text displayed 
in that dialog window. Type | 


fontchar i 


* 

A newly created window appeals in the upper left corner of the display screen. Like dialog windows, a 
font window can be moved, deleted, and its size changed. Unlike dialog windows, a new font window 
is created only by typing the message fontchar . 



Four actions are taken by pointing to one of the corners of a font window and pressing the top mouse 
button. t 


1. Move the window. Point t£> the upper left corner and press the top mouse button. Then point to 
a new position on the display Screen and press the top mouse button. 


2. Delete the window. Point to the upper right corner and press the top mouse button. 


3. Change the baseline of the character. Point to the lower left corner and then to the relative 
adjustment, up or down, of ’ the character s baseline. Raising the baseline creates superscripts; 
lowering the baseline creates subscripts. The upper limit is the baseline of the previous text display 
line; no lower limit exists with the exception that an attempt to print outside the display screen 
boundaries will cause Smalltalk to crash. Note that the font window appearance does not change; the 
change only appears in the printed text. Move the cursor into the dialog window to see the change. 


4. Change the widtli of the window (and, thereby, the width of the matrix). Point to the lower 
right corner and then to the m>w right margin. The width is rounded to a multiple of 16 display bits 
and may not exceed 16 dots, s<||it may not appear exactly at the mouse cursor's arrow head. 

M 4 


5. Drawing black and whitefdots. Black dots are painted into the matrix by pointing to a location 
in the window and pressing th|| bottom mouse button. The drawing technique is to scratch black lines 
through the matrix dots as long as the mouse button is pressed. As soon as the button is released, the 
black dots appear in any area containing the black lines. White dots are painted by pointing to a 
location in the window and pressing the middle mouse button. White lines are written through the 
dots as long as the mouse buttin is pressed; white dots appear when the button is released. 


• if -f. 


Aft***- 
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6. New characters. When the window is first created, the character available for editing is the 

period, To change the character, place the mouse cursor inside the window and type, on the 
keyboard, the desired character. 

Once a new font has been designed, it is saved on a disk file by typing 
filfont <filename> out ! 

where <filename> is some name delimited by single quote marks. For example, 
filfont 'myfont' out ! 

The font of the dialog window in which you are currently typing is the one that will be saved. 

To read a saved font, type 

filfont <filename> in | 

* ~ * 

For example, 

filfont ' myfont' in f 

The font of the dialog window you received when you first started working is stored on a filed named 
st8.al 

If you have made changes but would like to return to the original (default) Smalltalk font, type 
filfont 'st8.al 9 ini 


Other Smalltalk fonts include st6.al and stlO.al; each can be retrieved from the archival file system. 

The font of the dialog window in which you are currently typing will change to the font saved on 
(filename}. The font you edit is the one currently belonging to the dialog window in which you are 
typing. Note however, that each dialog window is created with references to the identical font. In 
order to have two font windows editing separate fonts for each of two dialog windows, it is necessary 
to replace one of the dialog window’s font with a copy of itself. For example, suppose there are two 
dialog windows (A and B) and suppose you type fontcharl in window A. Results of editing the single 
font window will appear in both A and B. Now type in window A 

fontchar font disp y s fontl 

Recall that the ’s is typed by^tikingNthe key marked ’S’ while holding down the key marked <CTRL>. 


The class fontchar , upon receiving the message font , will replace the font for dialog window A with a 
copy of the value following the message font (in this case, with a copy of the font possessed by A). 
Results of editing the new font window will then show in A and not in B; moreover, results of editing 
the original font window will show only in B. Choice of which fonts are saved will depend solely on 
which window is used for typing the filfont message. 

4 

The use of the name disp and the message ’s are described in more detail in subsequent sections. For 
now, assume their use for the above redefinition of a dialog window font. 


Warning: some fonts have no definition for the character whose Ascii code is 31. This is the 

character used to mark the black dots. Any font without this character properly defined can not be 
used with this font editing system. 




iqm 










■ -v - 
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Chapter II. WRITING SMALLTALK PROGRAMS 

4 

Simple Manipulation of a Simple Program 

To hand an object ’d* the meaning ’3’ in Smalltalk, we say: 

(&=d <- 3l 

(The is typed as <shift> ' ). If you now say: 

dl 

The meaning (or value) of d (which is a number, 3) will be returned. 

Each object in Smalltalk can only have one meaning. To change the meaning of the object named 'd', 
we might say 

(turtlel 

The new meaning (or value) of d (which is a turtle) will be returned. 

In these examples, we use the symbol to indicate that a literal name follows. The arrow, 
indicates a desire to give the name a meaning. 

Previous turtle examples showed how we can get a turtle to draw a square. Now we need to be able to 
make that definition a Smalltalk object, use it, change it, save it, and retrieve it. To do this we need 
to give a name to the actions which cause a square to be drawn. In Smalltalk, actions are also 
objects. So we need to say something similar to what was just said to d. Type: 

to square 

(do 4 f© go 100 turn 90 ]} ! 

This will cause Smalltalk to give the actions do 4( © go 100 turn 90 ) the name square. Here, the 
symbol to (rather than the hand dr*) indicates the desire to give a name to some actions; the actions 
are enclosed in parentheses. * * 

Erase the screen and bring the turtle back to home position by saying: 

© erase home I 

Then say: 

i. •* v ^ •• *. ■ 

square ! 

The stored actions will be invoked. The commonly used actions of clearing the screen and telling the 
turtle to go to home can also be abbreviated: 

to cl f © erase home) ! 

Now only 3 characters have to be typed: 

d! 


rather than 13. 
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Now type: 
defsl 

A list of the names square and cl should be typed back at you. defs is a kind of ’’bushel basket” which 
contains the names of user-defined programs. 


How to Edit Your Definition 
In any dialog window, type: 
edit square ! 

An editing window with a command menu will appear. The ’’method” of square is shown as: 
do4{) 

The () stands for a parenthesized message which in this case contains: 

© go 100 turn 90 

Actual parentheses never show in the editor, only the marker () indicating levels of parentheses. To 
see the message within the parentheses, point the cursor at the word ’Enter' in the menu and push the 
top button on the mouse. (Note, some versions of the mouse have buttons laid out horizontally, left 
to right, rather than vertically, top to bottom. Henceforth, we will refer only to top, middle, and 
bottom buttons; the left button corresponds to the top button.) 

You should see the message as: 

© go 100 turn 90 

Place the cursor on the word ’Leave' in the menu and press the top mouse button. You have now 
backed up to the next higher level of parentheses. 

We will use the word ’’grab” to stand for the compound operation of positioning the cursor on an 
object (word, icon) and pushing a button on the mouse to tell the system that the object we are 
pointing at is really the one we mean. (Unless specifically stated to the contrary, push the top mouse 
button). 

Grab 'Enter' again. 

Now let’s change the 100 to a 50 in the definition of square. Grab 'Replace'. It will reverse its display 
color to show that the selection is understood. 

Grab ’100’. The top half will reverse color. This means that 'Replace' expects you to replace one or 
more elements beginning at '100'. We only want one element, so grab 100' again. The bottom half 
will also reverse color and a prompting Interim-Dynabook image will appear, indicating that typing is 
expected. Type: 

50\ 

You will now see: 

© go 50 turn 90 
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Now grab 'Exit' to terminate the editing context. You will be returned to the previous Smalltalk 
context. Say: 

square § 

and one of size ’50’ will be drawn. So the ’’meaning" (or "actions") of square has been changed. 

A Note on Editing 

There are a number of ways to terminate an editing sequence before completion. If you grab a wrong 
menu word, or have not completed the selection of a phrase to replace or delete, you can terminate by 
pointing the cursor outside the editing window and pushing the top mouse button. This does not work 
for 'Add', 'Insert', nor 'Exit'. If you do not want to complete an add or insert command, but have 
already received the Interim Dynabook prompt character, just type ! (i.e., insert or add nothing). 
Once you have selected the phrase, a replace command cannot be terminated unless you are willing to 
lose any previous edits. Pressing the 'ESC' key takes you out of the edit window and back to the 
dialog window. Also note that if there is more than one parentheses marker displayed in the edit 
window, the 'Leave' and 'Enter' commands expect you to point at the appropriate marker. 


Generalizing the Definition of Square 

Now suppose we would like to make square more general, so that it will draw squares of any size. To 
do so we can give square a "message" saying what the size should be this time, such as: 

square 150 ! 

We must now change the definition of square so that it can receive the message and act accordingly. 
First say: 

show square ! 

to remind yourself what the current definition of square is. We see: 

to square 
(do 4 

f© go 50 turn 90)) * ’ 

It's clear that we want to do something with the place where 50 is. Everything else about the 
definition (having 4 sides and turning 90 degrees) describe, squares in general. 

Suppose there is a way to receive a value from the message. The value needs to be some number. We 
give the particular value a "name" in order to talk about it since we don’t know beforehand what the 
number will be. Let's call it size. Looking above, we see that size should replace the 50 : 

to square 
(do 4 

f© go size turn 90)) 

Now we just need to get square to receive the value of a message and call it size. In Smalltalk, the 
request to "receive the value of a message" is expressed by a colon 


So we want to add 
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( tr*size «- 

to the beginning of square . Say: 
edit squarei 

Grab ’Insert', grab 'do', type: 

C &*size «- ;.! 

Careful the period is necessary here. It helps to separate, in one’s mind, the sequence of receiving a 

message and then invoking an action for producing a response. Note that the ’Insert’ command 
inserts before the selected element. 

To replace the 50, grab ’Enter'. You should see 

© go 50 turn 90 

Grab ’Replace’. You want to replace the '50' so grab ’50’ and grab '50' again (indicating the beginning 
and ending of a phrase to be replaced by new text). Now type the new text 

sizei 

Grab ’Exit'. You are no longer talking to the editor. Type: 
show squarei 

to see what you've done. It should look like: 

to square 
((&*size <- 
do 4 

(© go size turn 90)) 

• 1 * ’ - * *ST * ,.J* * • < * v ( .; ., 

Then try sending several messages to draw different squares: 

square 150l 
square 10l 

and so on. 

The colon expresses a request to Smalltalk to fetch the next value in the message. The value is the 

meaning of the next object (for example, the number 10). But the value can also be the result of 
actions taken by the next object. For example, try 

square 150+20i 

Smalltalk runs the definition of square. When it sees the colon in (C s^size *- :.), Smalltalk "activates" 

the next object, the number 150. This number sees the plus sign (+), fetches the value of the next 

object (in this case, the number 20), and performs the addition. The value returned as the value of 
size is the sum 170. 

The definition of square is obviously working but is a bit untidy. To see why, type: 
sizei 
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The value of the last size you gave square will be returned. This shows that the "name" of the message 
for the size of square belongs to everyone. It is much better for size to belong only to the object which 
uses it. To do this we only need to tell square that size belongs to it by putting the name size right 
after the name square in the "title” part of the definition. Say: % 


edit square titlel 


square's title line will be shown as well as (), the marker representing the body of the definition 
you were to ’Enter 1 (), you would see the definition itself. Instead, grab ’Insert’, grab (), type: 


show squarel 


You should see 


to square size 
size <- :. 
do 4 

go size turn 90)) 


Later, when more of the Smalltalk system has been explained, we will adopt som 
make our story more compact and clear. For example, a short way to talk about this 
to exhibit, in a general way, what has to be said to get results: 

square <number }! 


means the object square expects anything which evaluates to a number as a 
might be 


square 30.4+(111.7*65.789)/99\ 


Here, the colon in (( &*size <- :.) fetches the result of the expression 30.4+(l 11.7*65.789)/99. This 
example demonstrates the left-to-right method for receiving messages; that is, Smalltalk first sees the 
floating point number 30.4 which, in turn, sees the plus sign and attempts to receive a floating point 
number for the augend. However, the arithmetic is right associative. The augend is obtainea by 
fetching a value from the message. As a result, the floating point number (111.7*65.789jj is 
evaluated which, in turn, sees the division sign and requests a divisor (the 99.). Hence, in this 
expression, the multiplication is carried out first (because of the explicit parentheses), the division 
second, and the addition last. Try | 


Fixing Your Dialog 

You can edit the command lines (or statements) in the dialog window in the same manner that 
edit a named definition (described in the previous section). To fix a previous command line, type; 

fix n ! 
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where n is the number of transactions (visible images of the Interim Dynabook) back from where you 
are. 

An editing window with a command menu will appear. After making changes, you grab ’Exit' to 
terminate the editing context, 'I his causes the edited line to be sent and evaluated as a message to 
Smalltalk. The line in the dialog window will not be altered. 


Saving and Retrieving Programs 

Type: 

defsi 

again, square and cl will still be there. To save everything in defs , type: 

filout <some name in single quotes 
such as: 

filout 'mysquare'l 

The screen will go blank for a second. 

To test whether you actually saved them, go through the ”To get started" sequence again. Then try: 
square 100\ 

This will generate a diagnosis window with the complaint that "square has no value” . We are now in 
a clean" version of Smalltalk, one in which square has not been defined. 


Diagnosis Window 

The complaint is stated in a diagnosis window. Smalltalk attempts to state the complaint and then 
(1) to provide the name of the program in which the complaint occurred, and (2) to point, with a big 
arrow »*, to the object causing the problem. 

In the context of the diagnosis window, you can type any Smalltalk messages. The value of objects 
are within the context of the object in which the complaint occurred. In the above example, we are 
still at the "top level" of Smalltalk; that is, the context is a global one for all objects defined in 
Smalltalk. Each attempt by one object to evaluate another object takes you one level lower in 
context; after completing the evaluation, you return to the object that requested the evaluation at its 

higher level of context. It is possible to trace back from the current context in order to locate the 
cause of complaint. Each time you type 

c! 

you see the next higher level of context. 

Type 

done\ or <ctrl> D 

to get out of the diagnosis window. 





WRITING SMALLTALK PROGRAMS 


Page 15 


Now type: 

filin * my square' 1 
After a few seconds, try: 
square 100\ 

The result shows that you have retrieved your program. 

Type 

/ 

size ! 

You will get a complaint that ’’symbol has no value” because now size only belongs to the object 
square that uses it. The object size has no value in a more global context. 


Special Characters 

Smalltalk uses a number of special "iconic” characters, many of which were invented by some 
Smalltalk students to help remind them of important distinctions. An example is "quote” whose sign 
to adults is usually (”). The children preferred to use (dr 3 ) to signify a literal symbol, since in its 
typical use: 

(tr*joe 

(meaning the literal symbol ’joe’ rather than what or who ’joe’ may stand for)—the hand points 
directly at the symbol itself. 

This distinction exists in English also. We can say: 

Paris is a large city in France. 

We shouldn’t say: 



Paris has five letters, 
but rather: 

’Paris’ has five letters. 


to indicate the literal word rather than the city. 
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Keyboard Equivalents 




(Note, there are usually several ways to type a special keyboard character. The following table 
presents the methods most commonly used.) 


To Get 

You Type 

1 

m 

LF 

& 

<shift> * 

< 

<shift> 5 

o 

o 

<ctrl><shift>; 

2 

<ctrl> k 


<shift> / 

t 

<shift> 1 

© 

<shift> 2 

□ 

<shift> 7 

? 

• 

<ctrl> ? 

>S 

<ctrl> s 

done! 

<ctrl> d 

• 

<shift> - 


<ctrl> < 


<ctrl> > 

* 

<ctrl> = 

% 

<ctrl> v 

@ 

<ctrl> 2 

i 

• 

<ctrl> 1 

n 

<ctrl> o 

$ 

<ctrl> 4 


We Call It 


do it 
hand 

eyeball (look for) 

keyhole, "peek" 
if ... then 
return 
smiley 


unary minus 
less than or equal 
greater than or equal 
not equal 
percent sign 
"at" sign 
explanation 
double quote sign 
dollar sign 


Summary of Special Dialog Window Operations 


<esc> 


Escape to the "top level” of Smalltalk; should return youto the dialog window 
blinking the prompt character 


<ctrl> D 


Assuming you have entered a diagnostic window, returns you to the dialog 
window. 


c 


While inside a diagnostic window, changes the context of names and their 
values so you can investigate the cause of an error. 


<shift> <esc> Creates a sub-dialog window within the current dialog window, suspending the 

operation of the current window until you type <ctrl> D. Within the sub¬ 
window you can type any Smalltalk message. 

fix <number> Enters the Smalltalk editor for a command line in the dialog window. The line 

is <number> transactions back from where you are currently typing. 


redo <number> Re-sends Smalltalk the message on command line <number> where the line is 

<number> transactions back from where youare currently typing. 
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oxes: An Introduction to Smalltalk 


rst get the box programs by typing: 
filin 'boxes' i 

- * V . . 

V * 

ter a few blinks they will arrive, 
pe to Smalltalk: 

.• ',"A‘ ■: - * • ’ t 

C fr*joe + box | 

small box will appear in the top center of your screen. You have given it the name joe. As a 
ember of a class or group of objects resembling boxes, it can receive messages having to do with 
oxness", particularly those concerned with position, size, and tilt. Try: 

joe grow 50 ! 

e will get bigger. Try: 

joe turn 30 ! 


joe grow -20 ! 


joe is ? ! 

' . •> v' • ” '■ ~ " i j * 

e will turn, grow, and answer that he is a box correctly. Now try: 

( ff^jill <- box i 

new box will appear. Type similar messages to jill using different numbers for size and tilt, jill will 
nswer the question jill is ? with box (as did joej. 

.. 

w try: 

repeat (joe turn 20. jill turn -11 j I 

>■£*•% *- 

oth of the individuals respond. To "escape” from the endless loop, press the key marked ’ESC’ located 
the upper left hand corner of your keyboard. Ask the questions: 

joe^size I 


size 5 


on’t forget that’s is typed as <ctrl> s) 

. . ■? 

e see from this and the little "movie" which we created that joe and jill are really separate entities 
lich can do similar things. 
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»" srrr\* simii * r prop ' r,i “- ’’ or 

a particular kind of rolling gait for 'walk') Smal^talk^" ^ aCt ‘° nS (an lndlvld ual may have 

- ^zsa-ssrs 

~'1SsrrK“ 

.0 Hi it receives ‘r Zt '" " ,e,y "I"'" 1 Whi ' h M °"*» 

object. produces a reply, typically a message to send to another 

« T me„”X'c^“ ' lhe ''’ “ “ « 1 “““ »>** ’•end!. comtnnnic.tio. 

object's name and L'^rSJeTT ‘ 1 S “ n * "" ^ ”““«•>»* the 

or an action .ha, is a «p, y .‘l.s, sends 'he <«'* Aboard , y pi„ 8 ) 


A Look at the Class Box 

fo introduce ^thef sZl\^ ■ *”* ™ *?*«'"* ^ ^ 

encorporates most of what is complex about Smalltalk. X ’ “ * ^ Slmple ClaSS defmitjon . but 

ClaSS6S We h3Ve akeady discussed (mrtZe ’ windou,) ' as wel1 as ai * 

show <classname> I 


The definition of box is 
to box var / x y size tilt 

(W place x y turn tilt. square size.) 

f © white. SELF draw. © black) 

(SELF undraw. &>tilt <- tilt + :. SELF draw.) 

(SELF undraw, (sr^size + size + SELF draw.) 

(&*x <- C^y <- 256. ( ir’size + 50. 

&tilt <- 0. SELF draw)) ! 

addto turtle &(<( place => (SELF penup goto (:)(:) pendn up. tSELF)) | 

to square length 
(& length «- :. 

do 4 (W go length turn 90))* 


( <fdraw 

=> 

undraw 

-> 

<fturn 


<(grow 

=» 

isnew 

• 

=> 
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addto. The object addto is useful for extending the definition of an object (in this case, we used it 
to extend the definition of turtle ). Here, we give a turtle the ability to respond to the message place . 
The response is to have the turtle pick up its pen, go to a screen position that is received as a 
message, put its pen down, and face in an upward direction (that is, it places itself at a new position 
without leaving a trace). 

square. To draw a square box on the screen, we use the definition of square that was constructed in 
Chapter I. The initial explanation of the colon, the Smalltalk symbol for fetching the next value in 
the message, was also given in Chapter I. 

§ 

Explanation of the Definition of tlio Box Class 

' . ’ V- ' •' • ' ; 

The format for teaching Smalltalk about a new class of objects is 

to (class-name) <temporary variables > / 

<names of properties describing each member (instance variables )> / 

(names of properties describing the class (class variables)> 

(messages to receive and actions to take) ! 

We use the symbol, to, to refer to the next object as a literal class name (here, the name is box'). 
Everything following the name is its value; it is useful to think of this format as the mechanism for 
storing a name with its meaning in a dictionary. There can be different dictionaries for the different 
contexts in which a message might be sent; typically dictionaries are nested so that an object can 
gain access to objects and their meanings that were defined in any higher level of context. So far we 
have only been working at the highest level (top level) of Smalltalk context. The definitions of box, 
turtle, window , fontchar , are found in the top-level dictionary. 

Notice that more consistently, we might have preferred the format 

Cir* <classname) «- class <temporary variables) / (instance variables > / <class variables> 

(messages and responses )! 

which is more like 

dr* <name> <- <value>1 

the method for creating instances of the classes. Here we use the symbol (§* to refer to the next 
object as a literal name and the part after the arrow, is the object’s meaning. 

Title Line 

Words between the word to and the first left parenthesis are referred to as the title of the definition. 
The vertical bar, /, in the title is used as a delimiter for the different kinds of variables. 

Class and Instance Variables 

In the title line, three different kinds of names can be specified: names for temporary storage 
locations needed only when a member of the class is actually doing something; names of properties 
that distinguish each member of the class; and names of objects that are common to all members of 
the class. 

The definition of the class box specifies two kinds of names: the four properties (x, y, size , tilt) that 
distinguish members of the class; and a temporary variable (var). Properties x and y define the 
location of the box on the screen; size is the length of each of its sides; and tilt is its angle of 
orientation on the screen. Hence, two members of the class box can have different screen locations, 
different sizes, and different orientations. 
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Messages and Actions 

ish! ,ur :; dr - " d -»-■ e ‘"> —•>» 

request to learn the class type Usj ®fj VT . ™«*>nable conventions for Smalltalk classes: a 

messages that each n« m b., „T.h. ii can ,,T“ IT a , b ° U ‘ >"»•«»» CO- Th. 

message, are given within parentheses after the title line. ^ ^ each W,H take u P° n receiving a 


because it is used to look a!"the^ssa^^^up^Vse^Thlve 6 cTea'tldTlT h”* 1501 reSembles an e y ebaU 
Smalltalk the message ^ox named joe and we send 

joe grow 100 % 

that iU, TnZZJT,&Z Z‘ U n Ctl 7" r ?' T" *" d -»<»«.. 

box in the context of joe- that is with the kn T 7 T’ ® malUalk runs the definition of the class 

screen position. For example, joe’s dictionary/ d,Cti ° nary .containingyoe's size, tilt, and 
coordinates equal to 256. dmt.onary might indicate that size is 50, tilt 0, and x and y 

*»». mndraw, and lh „ 

question: do I so. the following toto afth. “oat t^.’ .'a of * he '>"><»>'. U asking , 

"token" to refer to a single word or a m„n nf h *° k . 7 he message? We will use the word 

grow, (grow 50), read, (read eval print). ° T S 6nC ^ V parentheses - Examples of tokens are: 

Conditional Actions 

we provid ' (viri “ iiy ■» **»“•*■• '°™» 

the messages. This it,„i,,i“ t Tct"a,ly il £ T. '“T,” “1 7” ”" lh ' ,d * '“■»"*"« *" 

net-false value; it iu.t be enls.d “,h“ ^enth^s. " W '“ ° CC “ r " lh<> « 

you seethe foUowin^word il'thZZLsLT’-' 1 AmZ °°" dit ‘° ni ' 1 s ““«m.nts ate simply questions "do 
may be asked in , conditional^axemen, Tht choice 7",b C *a n . be *“ W *« d 

significance in Sm.lltalk-any obi," with Ivlin, oth./.b T »th.r than -true" has 

to have the boolean „l„, The object, however l«u”rls"itl'’"^7'“' "'77 " 

message sender. * rns lts not ~false value for use by the 

The Message Grow 

Suppose a box sees the message grow. The action the box takes is to send it^lf *k 

in order to erase itself from the screen It ihnn „h ena ltse ^ the message undraw 

specific value of the change" received as . L, “ Change * th ' Value of si ~ b V some amount. The 
joe's size increases by 100 The box then senrR f 717 ^ SmalltaIk symbol colon, :. In this case, 
on the screen. the " SendS ltSelf the message dr ™ order to show itself again 

The Message Turn 

f 

value of IhelnsTanL 3 variable^ aTTthen 'tells TtseU to draw'agirnl 6115 * UndraW ’ ° hangeS th ° 
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... -W • - 

The Message Draw I 

f 

The meaning of draw is to place the turtle at the box’s screen location (x, y), turn the turtle in the 
box’s orientation {tilt), and call on the object square with the message size , the length of each of the 
box’s sides. Undraw simply changes the turtle's color to white (assuming the background color is 

white) in order to "erase" the drawing of the square box. | 

♦ 

Again, notice that the evaluation (reading) of a Smalltalk message is done in a left-to-right (linear) 
manner. As each object is evaluated, it is given the opportunity to read as much of the remaining 

message as it is able. § 

The Message Isnew 

■V- 

Jr 

The Smalltalk object isnew is a special question that determines if a new instance of the class is being 
created. If so, the usual consequent is the action of giving values to each of the instance variables 
(i.e., describing the new member of the class by assigning values to each name in a dictionary created 
for the class member). In box , the new instance also sends itself a message to draw a square shape on 
the screen. i 


t 

If a Smalltalk class is to have any members (instances) at all, the question 
isnew must be asked as part of the definition of the class. 


The Message Move | 

* 

To have a box grow, we change the instance variable size ; to have a box turn, we change tilt. To put 
a box in a different position on the display screen, we want to redraw the box with new values for x 
and y. | 

| 

Edit box and add to the definition 


Try 


<f move => (SELF undraw. &x<-:. C SELF draw.) 


joe move 100 200. 

joe move 200 100.\ I 

for i <- 50 to 250 by 10 (joe move i i) ! | 

| 

The third message causes joe to move across the screen diagonally from the upper left corner to the 
lower right corner. To have joe track the mouse cursor, simply type 

repeat (joe move mx my) ! I 

The above is a method for having the box move to an absolute location on the screen. The box f s 
action is to tell itself to erase from the screen ( undraw ), change the values of x and y by receiving 
new values from the message, and then drawing itself again {draw). 

I 

Suppose, instead, we would like to type messages such as 

joe move right 50. joe move left 100. joe move up 30. joe move down 10. i 

In other words, if a box sees the message move , then it should look for one of the four messages right , 
left , up, or down and then receive a number value to determine by how much to increment x or y. 
The Smalltalk statement might be 
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move => CSELF undraw* 

(<f right => (<&*x<-x+:.) 
<fleft =* (&X+X-:*) 
<fup => C&y+y-:*) 
<fdoum r> ((s?*y<-y+:)) 
SELF draw) 


The use of parentheses around the conditional statement (<fright => ()...) allows each possible form 
To ,v “u,.e P th, Lot p.,. ot ,he (SELF dro„); «h. ; »ply lo .•» 

three actions- (1) SELF undraw. (2) look for one of the directional messages, and (3) SELF draw. 
Alio note that moving up means decreasing the y coordinate. If we wanted to have both kinds of 
move methods (relative and absolute) available, we could make one (say the absolute one) the default 

case. Try 


move => (SELF undraw . 

( <f right => ((3*x<-x+:.) 
<(left => ( &x<-x-:.) 
<fup => ((&*y<-y-:*) 
<fdown => (&*y<-y+:) 
dh x <r ( tr* y + :*) 

SELF draw) 


The Message Is. 

There are two messages we include, by convention, in each class definition. One is the ability to learn 
the name of the class; the other is the ability to evaluate messages within the context of the class or 
class instance. We adopt the word is for the first message, and the possessive for ’s for the second. If 
they have not already been included in your definition of box, then type 

addto box <&*(<is => (<(box => (t & box) 1 ^ ( t (tr* box) 8. t false) 

=> (tvar <- o. => ( It var If var eval)) m 

The message is, by convention, is a request to learn the name of the class or to ask if the name is the 
same as one already known. So we might say 


or 

or 


joe is ?! 
joe is boxl 
joe is turtlei 


it 

and be told box 

and be told box (i.e., not-false) 
and be told false 


The method for responding to is (shown in the above definition of box) involves seeing (<f) if the 
class name (in this case, box), is the next word in the message. If it is, return (*) the literal class 
name (C^box). Otherwise, see if the next word in the message is a question mark (.). If it is, return 
the literal class name. Otherwise, the answer must be false. In order to not leave the incorrect name 
sitting in the message, gather it up but do not evaluate it (8). Then return false. 


The "open colon" symbol (8) is a Smalltalk symbol that says: fetch the next token (the next word or 
the next words enclosed in parentheses) literally as it appears in the message. The o is similar to <F 
in looking at the message literally. However, the 8 always fetches in the next literal expression; the 

<f only fetches the expression if there is an exact match. 
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The Message *s 

* 

The message (’s) is, by convention, a request to evaluate the next token in the message within the 
context of the message receiver (typically, the class or the instance of the class). Suppose the size of 
the box joe is 50 and we say 

<- 100 \ 

<- joe’s x\ * 

What will be the value of h? At the main (top) level of Smalltalk we examine the global dictionary 
and see that the value of x is 100; but, within the context of joe (looking in the dictionary created 
for the class instance), the value is 50. Hence the assigned value of h must be 50. 

The method for responding to ’s involves receiving the next token literally (o), assigning this token as 
the meaning of a temporary object (here named uar), and then seeing if the next word in the message 
is the back arrow (♦-). If it is a back arrow, then return (It) the result of letting the meaning of var 
take on the next value in the message (:). (I.e., this is a method of indirect reference.) If the next 
word is not the back arrow, then simply return the value of the meaning of var (obtained by sending 
var the message eval ). Again, note that the evaluation of a Smalltalk message is carried out 
sequentially left to right, but that the message is actually grouped in a right-associative manner 
because of the Smalltalk method for letting each object read as much of the message as it chooses. 

Receiving Messages 

There is not one global message to which all message ’’fetches’* (use of the Smalltalk symbols eyeball, 
colon, :, and open colon, o) refer; rather, messages form a hierarchy which we explain in the 
following way-- suppose I just received a message; I read part of it and decide I should send my 
friend a message; I wait until my friend reads his message (the one I sent him, not the one I 
received); when he finishes reading his message, I return to reading my message. I can choose to let 
my friend read the rest of my message, but then I can not get the message back to read it myself 
(note, however, that this can be done using the Smalltalk object apply which will be discussed later). 
I can also choose to include permission in my message to my friend to ask me to fetch some 
information from my message and to give that information to him (accomplished by including <f, :, or 
§ in the message to the friend). However, anything my friend fetches, I can no longer have. In other 
words, 

(1) An object (let's call it the CALLER) can send a message to another object (the RECEIVER) by 
simply mentioning the RECEIVER'S name followed by the message. 

(2) The action of message sending forms a stack of messages; the last message sent is put on the top. 

(3) Each attempt to receive information typically means looking at the message on the top of the 
stack. 

(4) The RECEIVER uses the eyeball, ■<#, the colon, and the open colon, 8, to receive information 
from the message at the top of the stack. 

(5) When the RECEIVER completes his actions, the message at the top of the stack is removed and 
the ability to send and receive messages returns to the CALLER. The RECEIVER may return a value 
to be used by the CALLER. 

(6) This sequence of sending and receiving messages, viewed here as a process of stacking messages, 
means that each message on the stack has a CALLER (message sender) and RECEIVER (message 
receiver). Each time the RECEIVER is finished, his message is removed from the stack and the 
CALLER becomes the current RECEIVER. The now current RECEIVER can continue reading any 
information remaining in his message. 
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(7) Initially, the RECEIVER is the first object in the message typed by the programmer, who is the 
CALLER. 

(8) If the RECEIVER'S message contains a eyeball, <f, colon, :, or open colon, 2, he can obtain 
further information from the CALLER'S message. Any information successfully obtained by the 
RECEIVER is no longer available to the CALLER. 

(9) By calling on the object apply , the CALLER can give the RECEIVER the right to see all of the 
CALLER’S remaining message. The CALLER can no longer get information that is read by the 
RECEIVER; he can, however, read anything that remains after the RECEIVER completes its actions. 

(10) There are two further special Smalltalk symbols useful in sending and receiving messages. One 
is the keyhole, 2, that lets the RECEIVER "peek" at the message. It is the same as the o except it 
does not remove the information from the message. The second symbol is the hash mark, #, placed in 
the message in order to send a reference to the next token rather than the token itself. An example 
of the use of # is given at the end of the next chapter. 

» • 

Alternative Box Definition 

An alternative method for defining the class box is given below. The main difference is the use of the 
message redraw to simplify methods for growing, turning, and moving boxes. 

Let's examine the definition in terms of steps (l)-(8) of the previous section. Suppose a box receives 
a message, message A. In the definition of box provided below, if message A contains the token grow , 
the box becomes a CALLER, sending itself another message, B —redraw (sr*size<-size+:. The 
RECEIVER of message B sees the token redraw ; as a result, it sends itself the message undraw . 
After the action of undrawing is completed, the RECEIVER requests a fetch for a value (:.). The 
fetch comes from the remaining part of message B (6 f^size <- size + :.). This part of message B 
contains a colon (:) directing it to get information from the remaining part of the CALLER’s message 
A (as stated in (8) above). This remaining part of message A contains a number that determines the 
amount of the box’s growth. The RECEIVER then sends itself the message draw , after which it % 
returns control to its CALLER. The CALLER'S actions are now completed. 

Similarly for messages containing the tokens turn or move. In order to change more than one 
instance variable (that is, both x and y in the case of moue), it was necessary to enclose the 
appropriate messages within parentheses. (Then the fetch for a value found in the action taken by 
redraw , will obtain the value of changing both the x and the y.) In general, a colon will activate 
(start determining the value of the message) at the next token—either a single word or words 
enclosed by parentheses. 


The alternative box definition follows. 
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box var / 

x y size 

tilt 

(<fdraw 


f © place x y turn tilt, square size.) 

<f undraw 

- 

(© white. SELF draw. © black) 

<f redraw 

\ 

(SELF undraw. :. SELF draw.) 

<fturn 


(SELF redraw (S^tilt <- tilt + ) 

<(grow 

- 

(SELF redraw &*size <- size + :.) 

<(move 


(SELF redraw ((&*x :. (ir'y*-:.)) 


- 

(C&*var o . <f <- (t var <- :.) t 

<fis 

* 

(<fbox => (fC&^box) <( 1 => (t(&*box 

isnew 

=> 

((sr*x <- C tr*y <- 256. 0 s *size «- 50. 
&tilt <- 0. SELF draw)) ! 




Extending the Box Definition. There are several ways to extend or modify the box class. We will 
show one in the next section: the class of polygons, and, after introducing the class turtle , we modify 
the box class to be a class whose members each own an instance of the turtle class. 
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Class of Polygons 

This simple extension to class box allows us to create objects that have any number of sides of equal 
length. The object that draws any polygon must ask the turtle to draw the appropriate number of 
lines. After drawing each line, the turtle has to turn enough units so that, after drawing all the lines, 
the turtle will have turned a complete circle (360 units). Since each angle of a polygon is equal, each 
turn is an even division of 360 (360/number-of-sides). A polygon-drawing routine is 

to poly sides size 

((3sides *- ;. <3*size * :. 

do sides go size turn 360/sides)) 8 

Using the box definition as a model, we can define a class for polygons. 

to polygon var / X y size tilt sides The title line is similar to that of box; we added the number 

of sides as an instance variable. 

C draw; ^ ("© place x y turn tilt . poly sides size) 

The method for drawing has changed. We use poly, not 
square. poly expects two messages: number of sides and 
length of each side. 

grow :> (<f sides (SELF redraw (3 sides* sides*:.) 

size =» (SELF redraw C 3*size*size*:.)) 

We adopt message forms 
joe grow size 100. 
joe grow sides 50. 

as the two alternative meanings of grow. Another method to 
use is 

, (CS?*var *- S. 

SELF redraw var*-var eval+:.). 

Responses to messages redraw, undraw, turn, ’s, and move, are the same as in box. The message is, 

by convention, is similar, but looks for the word polygon. Or, alternatively, we can take advantage of 
a Smalltalk object, ISIT , and use 

<fis => (ISIT eval) 

This object is part of the basic Smalltalk system referenced in subsequent sections. It is always 
possible to type show <class-name) in order to see any such "basic” objects. 

In isnew, we must give sides a value as well as the other instance properties. Suppose we choose to 
send the initial value of sides as a message when we create an instance of polygon. I.e., 

<3*joe * polygon 3! creates a triangle 

(3*joe * polygon 6 5 creates a hexagon 

* * 

Then we write as part of the definition of poly 
isnew =» (3*sides*:. 3*size * 50. 

3*tilt * 0 . (3x<-3*y<-256 . 

SELF draw.) 
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Turtles 

The turtle examples in the first section showed some of the messages any turtle can understand. We 

can get a turtle to draw designs, sketch, and make diagrams with a number of useful and simple 
programs. 

Type 

I 

C &*pokey «- turtle 8 • 

Now pokey understands messages 


go <n> 

r 

turn <n> 
penup, pendn 
black, white 
xor 

goto <n> <m> 
goto <point) 

up 

erase 

home 


Where n is an integer, move n units forward ( + ) or backward (-). 

Where n is an integer, change orientation right ( + ) or left (-). 

Change state of pen that can leave a trace. 

A turtle can have three ink colors: black, white, or xor. 

This color says that whatever "color" is on the screen, show its complement 
(white for black, black for white). This works only when the turtle's 
width is 1. 


where n and m are the horizontal, vertical locations on the display screen. 

<point> i3 an instance of the class point explained in a subsequent section; 
try 

goto mp 

i.e., goto the point where the mouse cursor is placed. 


Points the turtle's orientation (dir) towards top of screen. 


Clears the window, frame in which the turtle lives; default window is the 
entire screen. 


Goes to center of the window frame. 


(String ) Prints the text (string of characters enclosed by single quote marks) at the 

turtle's current location, with its direction, width, and color. Note that 
you can make non-destructive text by using xor ink which complements the 
background so that reshowing the text erases it while restoring what was 
underneath. 


We can query the turtle's property values using’s (typed by striking the key marked ’S’ while holding 
down the 'CTRL' key). For example, 

pokey ’s ink 
pokey ’s dir 
pokey y s width 


Also, x , y, pen , and frame . We can change these values by typing 
pokey ’s < property) <- (value )! 
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Usually, only the width, whose value is an integer between 1 and 8, and frame, whose value is a 

display screen window, are modified in this manner. There are alternative methods for each of the 
other properties. 

pokey *s width 2| 

A simple design program might be: pokey go a little, turn some amount, go a little more, and so on. 
to design var i 

C^&^var *-:. for i to 300 (pokey go i turn var}} | 

Try 

pokey erase home up. 
design 89. 
pokey home up. 
design 91 1 

It is probably better Smalltalk programming style to modify the turtle class definition and give turtles 
e ability to receive the message design. In this way, all turtles, not just pokey, will be able to draw 
designs, addto lets us add new messages and responses to class definitions. Try 

addto turtle Cdesign => (&var <- for i to 300 (SELF go i turn var)))\ 

The explanations of (eyeball), SELF, and =* were given in the previous section. Recall that < is a 
method for looking at the message and seeing if there is a match between the next word in the 

message and the word following the <*. The use of <( is a test whose value is either not-false or false. 
Ihe arrow (=>) denotes a conditional statement of the form 

<test for truth> => (<action to take if the value of the boolean expression is true» 

<otherwise do this> J 




WRITING SMALLTALK PROGRAMS 


Page 29 


Boxes Owning Turtles 

The definition of box as presented earlier depends on the turtle © to draw each instance of the class. 
Each time an instance is drawn or erased, © must be placed at the appropriate location facing in the 
appropriate direction. Rather than having to reposition © each time, we might assign a turtle to each 
instance of box\ since the instance "owns" its turtle, we can assume that the turtle is always 

correctly positioned. 

In the new definition of box given below, we use a different turtle to draw each instance of the class 
box. The turtle, whom we named turt, is an instance variable of the class box. Each time we move or 
turn a box , we actually move or turn the turt belonging to that box . When we draw a box, we assume 
that turt is sitting at the correct display coordinate, turned in the proper direction, waiting to draw 
the geometric shape. The turt remembers its position (x, y) and its orientation (tilt) on the screen, 
so the box no longer has to retain this information. There are now only two instance variables: turt 

and size . 

to box var / turt size 

Create turt as an instance of class turtle and give 
size the value 50. Place the turtle at the 
starting position and orientation. 

<fdraw => (do 4 (turt go size turn 90] ] Ask the turtle to draw a square. 

<f undraw =» (turt white. SELF draw, turt black] 

Change turtle's ink, assume background is white. 

<f redraw => (SELF undraw. :. SELF draw.] 

<fturn => (SELF redraw turt turn :.] Rather than changing value of tilt, we simply tell 

the turtle to change his orientation. 

*$move =» (SELF redraw turt penup go (: ] pendn] 

This is a new kind of move--inove forward if amount 
is positive, move backward if negative. Turtle 
always moves in the direction of his tilt. This is 
useful if you think of the box as a spaceship! 

<fgrow => (SELF redraw dr 3 size*-size+:.]]l 
There were several changes to the box definition. 

(1) draw —we no longer need to reposition the turtle because turt is already correctly positioned, nor 
do we need to use the object square. 

(2) turn —since the turtle must sit in the proper direction, we tilt the box by changing the turtle's 
direction (send turt the message turn). The box no longer has instance variable tilt. 

(3) move —the turtle remembers his, and therefore the box’s, position. The box no longer has 
instance variables x and y. 


(isnew =» (C&^turt <- turtle. (S^size <- 50. 

turt place 256 256. 

SELF draw.] 
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X .' 

- 


Dispframes: An Introduction to Text Display 


this class can sh^owTe^ systern clas s dispframe. Members of 

already seen, Smalltalk can have many dispframes o h ramed Wlth thlck black lines. As you have 
changing its size, displaying text, and hiding itself fdelet' 6 Capable of movin B its screen position, 
screen). To do these tasks, an instance of dispframe uL demands " repreSentatio " the display 

fupper left corner y>, growto (lower right corner x> Tlessa Ees such as moveto (upper left 
and hide. You have sent messages to the windows hv <lower r 'ght corner y>, show, display, 

this task, a dispframe understands the messages Jsl '"f at , ° n6 ° f the f ° Ur corners - To help in 
cursor is inside the window; and corner (x> <y/todpT’ determine whether or not the mouse 

cursor points. The response to themessage corner is .T u C ° rner ' if an V> the ™use 

display coordinates x,y. „ g a number between 1 and 4 depending on the 

# 


named buf^Llol thejo^oi S^s^sp^^s^o nfitto^^Sowf^' ^ ^ “ 


(1) changing physical lines when the characters fill the line space ("line wrap around”), 


(2) lining the characters up evenly i n the right margin (right justify), 

when the iindow can not^^itailiaU 1 tto tat!" 18 ““ remaining characters upward) 

Placing Text on the Display Screen 

1 


WayS l ° PU ” °» T »■» — • turtle, the other t„. re,, th . 


With Turtles. 


(&*amy <- turtle ■ 

amy penup goto 100 100 pendnl 
amy <- 'hello'l 


Amy has width = 1 and faces upward. 

Note the need for single quote marks as delimiters. 


x,y position. Now amy has been reposilio Je^atTe 'eri rttoTdbJEyri ^ I 2“ racter shows at am *' 8 


amy '*s width <- 2| 
amy «- f hi f \ 


Increase amy's width to 2. 
Print another word. 


di,, "r* w,dlhs - • 

look, be,, when the turtle', direction i, horizontal, vertic.l, or at «'de,«r. V „gUr l “’ n ' *“* S *"' r * 1 ' 1 ' 


rectangular aria and irt eoltenu'^he"oreITC^Ir lerteranfr ^ d “'ribing the 

length, and a ,„i„ g . Th e „ r i„g 1, the .n.thod 


& dp <- dispframe 100 75 100 120 string 200 .| 

I " 


~ ass , rr°the z - 


(dispframe> put (text> at (x> (y> 
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Where x,y are the display screen coordinates. For example, 
dp put ’hi there’ at 150 100 I 


Now try 


dp put ’hi where’ at 200 150l 

t 

Notice that the dispframe has changed its x,y position to 200,150. It has replaced its original text 
with the text ’hi where' , but it has not erased the original text ’hi there’ . Try 

repeat (dp put ’hi’ at mx my) | 

to place the word "hi” all over the screen. 

Appending Text to Display Frames. A dispframe stores its text in a place named buf . The 
message when sent to a dispframe , is a request to add characters to buf ; buf is an instance of a 
basic class named string . We can print the word "hello" in the dispframe dp by typing: 

dp «- ’hello ’.! 

Now try: 


dp + ’how are you today? My name is dp and I am a dispframe ’! 


Do you see how the line-wrap-around works? And that spaces have to be explicitly stored into the 
dispframe? The original text was not cleared when new characters were added; rather, the new 
characters are appended to the end. Now try the various other messages to a dispframe: 


dp hidel 
dp displayl 

dp f clear ! 
dp showl 

dp clearl 
dp showl 

dp hidel 

dp growto 250 250 ! 
dp displayl 

dp hidel 

dp moveto 50 50 1 
dp displayl 


The entire area disappears and reappears. 


The text area is cleared and represented. 


This empties the string buf so there is no longer text to display. 


Now the frame is larger. 


Now the frame is in a new position. 
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Boxes as Menus 

*■ " rhe Smalltalk class editor uses two instances of dispframe. The first is the window containing the 
| levels of the class definition; the second is the menu window. In each case, you were able to portion 
t mouse cursor m the window and the editor was able to determine which character or word you 
1 were grabbing. Instances of dispframe understand three messages that aid in this task: 

| mfindc (which character), 

mfindw (which word), and 

I mfindt (which token, that is, which word 

or set of words enclosed in parentheses). 

j ^ dispframe .^ 6 ^ ° rder t0 the USe ° f theSe meSsa S es and to P rovide an example 

l f h r 6 h“ an ,°l ered HSt ° f ° bjects that can be selected in a variety of ways. One way is to point at 
' ^ n ° r bj6Ct Wlth /he mouse cursor. The objects might be words or pictures, each representing tEings to 

d °: h " n t am6S othe J oh \ ects ‘o retrieve or to "activate" (that is, give the ability to do something 
such as to receive and/or to send messages). * 

I 

We have chosen a simple example of a menu consisting of a list of words, each word being the name nf 
| * The result of grabbing a word will be to create the co,r«U.diM tastZ? “ fte ctaL 

s • ctua " y ,he *»■ -•« »•«» 

I“ Se . * modin "> vmi °" ■>' lh « definition of polygon, on. in which the polygon position is 
i po^on”, byTypi"g“” 8 ' ” C " V * 1 *‘ ““ *>“ •**•* “ "“‘« d ' « wi.l create the 


&joe *- polygon 5 150 100l 
to polygon / sides size © 


(<fdraw=> (do sides f© go size turn 360/sides J) 


joe is a pentagon (5 sides) at 150,100 
polygon simply creates the object. 


isnew => (CW*sides <- C&^size + 50. 

Ct? 3 © <- turtle . © place (:)(:). 
SELF drawjjl 


Draws it on the'screen. 

Values for sides and the turtle's position are 
provided when the polygon is created. 


* 

"tx b.s^r,r.r jsstisvss tr^'ringtr 0 :, ti " in be “ 

^pi C ng: hSt ° f tHe MmeS ° f the P ° SSible POlyg ° nS t0 Create - F ° r exam P ,e > might* create a me™ by 

| 

j t ^ >pmf Polygonmenu (triangle square pentagon hexagon septagon octagon)l 

The list codevector owned by pm is now a list of polygon names that will annear i„ th. . 

* he Each item in codevector refers to a poEyg™ that can be created! nU b ° X ^ 


’ 
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t° polygonmenu i / dp codevector 
(isnew ^((3*codevector o. 


repeat (button 4 ^ 


When creating a menu, fetch literally the vector of word, to 
be displayed in the menu. 


Wait for the user to press button 4 to indicate the menu 

position; then create dp, the dispframe, at the mouse cursor's 
position; 


(<B=dp *- dispframe mx 75 my 120 string 100. 


and print each word in the menu followed by a carriage 
return. & 

for i to codevector length - 1 

(dp <- codevector[ij chars, dp <- 13). 

done))))! We reference items in a vector using the notation: 

nameLindex] 

!h TH recl ^ gu,armied " ,lhT - —hod 
—hod. The counterT" “”»* <»« f-r 

then codevector[i] = codevector[ 1J - triangle. example, tn the above, if i=l 

^HntofTharft ""T ^ ^ ° f “ «“>»«»« *o 

from the atom (^triangle would be the string* triangle'. ^The worf ’Triangle^s’ ^/ 'T?™* 

2;zn-izizzz-zt *——* - 

Now let’s find the word to which the mouse cursor points. 

addto polygonmenu &(<findex => (tdp mfindt mx my ))| 

If we send a polygonmenu the message index, we will receive a list fvectnrl „r r , 

reply from the dispframe). The four numbers are: the actual inde^ of tL f ° U / nui " bers Cthe 
codevector , the x position of the first chararfpr in i f th WOrd in the vector 

of the first character in the wor S o! ! W ° rd) ““ W ' dth ° f the W ° rd ’ and the V P™ti°n 

to the first word in the menu PP ’ eXamP ‘ e ’ tyPG index while we are pointing 


pm indexi 
(1 65 50 100) 


The result is a vector. The first number in the vector is the index of the 
word ,n the menu. The second is the x position, third the word width, and 
fourth is the y position. Word height is generally 14 


To select the menu word from codevector, we retrieve the i[l]th item in the vector. 

addto polygonmenu &(<fselect * (&1+SELF index, do something with codevector[i[l]]))l 
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S3 


tv, ...Jg 

uppose we want to delay computing i until the user can point into the menu and press a mouse 
button. 




s* 


* 


1. 

f- 


jev. 

5t 

V 


t: 

£-• 


¥ 

% 




f?.. 

i,v 


tr._. 

v: 


W' 


r"--. 

*r.“- 


tEf 




i*-V 






2- 


r-r 


$ 




#■ - 


■%r«. 

-t-I. 


J£ 

C-- 

W 

fc 


1 ■"; 

iiHr -:>• 
... 


at' 

W' 


*"*»r 


- • -. **&+■:■*** £> n w 


<$select => (repeat (button 4 => «- SELF index. 

do something with codevector[i[l J]. done))) 


he done part is important. It stops the repeating and returns control to the message sender. What 
we do is simply to call on the polygon class with sides = 2+i[l]. Hence, in this case, it is actually 
not necessary to retrieve the i[l]th item in codevector. 


<fselect => (repeat (button 4 => i «- SELF index. 

polygon 2+i[l] mx my. done))) 


Jut, again, there is no delay provided in order to allow the user to point someplace on the screen 
before the figure is drawn. Let's change the response to draw. 


<fselect =» (repeat (button 4 =* (& i «- SELF index. 

SELF draw 2+i[l]. done))) 



<(draw =» (repeat (button 0 => (done)) 
repeat (button 4 => 


(polygon (:) mx my. done))) 


Make certain that the button is released. Then 
wait for button press before calling on polygon. 


e can complete the menu selection by adding the ability to complement the color of the selected 
word. There is a special routine, dcomp , that lets us complement any rectangular area of the screen. 

it expects four messages! the areas upper left corner x, the width, the upper left corner y, and the 
height. For example: 


dcomp 100 50 100 200\ 


ry 


do 100 (dcomp 100 50 100 200 )i 


The height of the font we are using is 14, so, to complement a word in the 


menu, we use 


dcomp i[2] i[3] i[4] 14. 
The change to the class definition is 


a trc 

*v—. - *• 


select => (repeat (button 4 => 

(<&=i <- SELF index. 

dcomp i[2] i[3J i[4] 14. 
SELF draw 2 + i[lj. 
dcomp i[2] i[3] i£4j 14. 
done ))) 


a 

Of course, we assumed the index was a reasonable number. It is safer to check! We change the 
response to index to first see if the mouse cursor is inside the frame, and, if so, to compute i and 
check to see if i = -2. If it does, then the cursor was inside the frame but was not pointing at any 
token. The completed definition is: 


TS* - —- 








IIMHMMl ■ I 


mmr**rm<*m* 
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to polygonmenu i / dp codevector 

(<f index =*> (dp hasmouse ^(C&^i <- dp mfindt mx my. i[ 1 ] - -1 => (t false 1 Itil 

t false) J J 

select =» (repeat (button 4 =» 

CC&i *■ SELF index) =>(dcomp i[2J i[3] i[4] 14. 

SELF draw 2 + i[l]. 

dcomp i[2J i[3J i[4J 14.done) 

done))) 

dr aw => (repeat (button 0 => (done)) 

repeat (button 4 => (polygon (:) mx my. done))) 
isnew => ((& codevector o. 

repeat (button 4 => (CP^dp <- dispframe mx 75 my 120 string 100. 

for i to codevector length - 1 

(dp <- codevector[ij chars, dp <- 13). done))))\ 


T ° klnd ° f m ‘ eht USe . the mdex of the menu word se,ected to choose a message to evaluate, 

message might be an item in a vector of messages. For example, suppose we did not want to 

epend on the order of the polygonmenu to determine which polygon was created. Possibly, we want a 
menu to be 


hexagon 

triangle 

circle 

Within the repeat-loop of the response to the message select , replacing SELF draw 2+i[l ], we might 
^"((polygon 6 mx my) (polygon 3 mx my)(polygon 10 mx my)) [i[l]J eval 

Here i[l] is the index into the vector of messages. We select an item from the vector and send it the 
message eval in order to obtain the desired polygon. 

Chapters IV and V contain more information and examples about the classes dispframe and vector. 
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A Few Sketching Tricks 

Some of our favorite design programs are 

certain that you have a large enough ,outi“ and add the rest by nsing the 

Smalltalk ^editor." »« Btrieve these turtle routines from the disk pack by typing 

filin ' turtlefns' i 
dragon 

to dragon length 
(&length «- 

length = 0 => f© go 10) _ , ri OT > aih-1 11 

length > 0 => (dragon length -1. © turn 90. dragon -( g JJ 

dragon -length+l. © turn - 90. dragon length + 1J. 

_ 0 • 

Try 

© erase home up. dragon 8„ 


hilbert space filler 
to hil i a b 

((&i = 0 =» f® turn. 230.? 

f i > 0=> 

((&*a *■ 90. &b *■ i - 1) 

(3*a *■ - 90. &b *■ i + 1) 
hill hil2 hill)i 

to hill 

turn a. hil 0 - b. © turn a )! 


to hil2 

^© go 10. hil b. © turn 0 - a. 
i is the recursion number. Try 

© erase home up 1 
hil 4\ 


m go 10 turn 0 - a. hil h. © go 10)1 


squiggles 


to squig90 
(repeat 

f © home do 200 . 

(© go rand / 1000 turn 90 * rand mod 4JJJI 

to rand (t(&*i i * 5 )i 


Try 


© erase, ©’s width <- 2. <s*i «- 2 2. s quig90\ 
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Or 

to squiggle i 
(<3*i <-13. 
repeat 
f © home . 
do 1000 

f© go 20 turn randJJJ* 

© erase. ©’s width <- 1. squiggle 5 

Changing ink color and the width of the turtle's trace makes for interesting variations. Try 

© home up erase . ©’s width <- 1. dragon 8. 

© home up turn 90. ©’s width <- 2. dragon 8. ! 


Sketching. We can sketch by telling any turtle to follow the mouse cursor. For example, 

repeat (pokey goto mx my) f 

or 

repeat (pokey goto mp) ■ 

The routine mp returns the point where the mouse is located (that is, it combines mx and my). 

Members of the class point respond to messages x y + - = max min. This class is described in more 
detail in Chapter IV. 

More sketching control is obtained with the mouse buttons. 

to draw 
(repeat 

(button 4 => (pokey pendn goto mp) 
button 2 => (pokey erase) 
button 7 => (done) 
pokey penup goto mp)) ! 

draw ! 

w 

0 

Now lines are drawn only when you press the top mouse button (button 4); the bottom mouse button ' 
(button 2) erases the screen; holding down all the mouse buttons (button 7) terminates the program; 
otherwise, the turtle moves to the cursor without leaving a trace. (Note, there are two versions of the 
mouse device, one having buttons ordered from top to bottom, the other ordered left (top) to right 
(bottom). Henceforth, we will refer to the top-to-bottom version.) 

Variations use the mouse button to control changing the turtle's width and changing turtle's ink color 
to allow selective erasure. 

Rubber Bands is another sketching technique in which a turtle expands and contracts straight 

lines, always stretching towards the mouse cursor. The line starts at the point indicated by pressing 

the top mouse button; the bottom mouse button indicates that the line is to be fixed in its current 
position. 


WRITING SMALLTALK PROGRAMS 


Page 38 


to rubberband fp sp 
( repeat 

(button 4 => f © penup goto 0*fp*-mp pendn . 

repeat 

( © goto (ir*sp«-mp. 

button 2 => (done) a 

© white penup goto fp pendn goto sp goto fp black)))) • 

Saving the points fp, sp, lets you store the method for constructing the drawing. A simple example of 
storing mouse points is 

0* points <- stream of vector 10\ 

repeat f © goto points <- mp )i • *. ' 

Here, the object points is an instance of the class stream, a method for storing other objects 
(described in detail in Chapter IV). Members of the class stream respond to messages «- next 

reset end Each time the turtle moves, the new turtle location is stored (<-) in points. The routine 
rubberband can be modified to store each pair (fx, sx), making these lines available for reconstructing 

the sketch. 

to newrubberband fp sp points 

((S^points stream of vector 10» 

repeat 

(button 7 => Cdone with stream of points contents) 
button 4 => f© penup goto 0*fp<-mp pendn . 
repeat 

f © goto (sr*sp*-mp. 

button 2 => (points «- fp. points *- sp. done) 

© white penup goto fp pendn goto sp goto fp black)))) « 

0 s points + new rubber bandl 

The sketch can be reconstructed by 

to reconstruct pts 

(0*pts <- pts reset . 
repeat (pts end => (done) 

© penup goto pts next pendn goto pts next))l 
reconstruct pointsl 

That is, reset the stream, and repeatedly retrieve the next item until reaching the end. 

Chinese Brush Strokes. Changing the width of the turtle's path as a line is being drawn leaves 
"Chinese Brush Strokes". This class lets you draw variable-width lines as long as you press the top 

mouse button. 


to brush i © 

(«- turtle . * 

repeat (button 2 => ^© erase) 
button 4 => f© pendn. 

repeat f©’s width + (S^i+l+i mod 8 . 

button 0 => (done))) 

© penup goto mp. 0*i*-O.)) ! 


© goto mp , 


A 
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"feather stroke"*' ThiS C,aSS th<5 thickneSS ° f the trace Spending on the direction of the 


to feder ox oy nx ny 
f© penup . 
repeat 

(button 4z> f© goto &*ox <- mx (s*oy *- my pendn. 

repeat 

(button 0 => (® penup. done) 

©’s width 4- 1 + abs (3 * ((s^ny «- my) 
© goto C&^ox <- nx (s^oy 4 - ny)) 
button 2 =>f© erase)))! 

to abs x 

((<&=x + :) < 0 => (tO - x) tx)i 


~ oy) /(&*nx mx) - ox. 


Cobwebs This last class uses a second turtle, turt, to form cobwebs around the lines drawn by ©. 

The creation of this turtle with the message frame is explained in Chapters IV and V; the class 

vector is also explained in Chapter IV. A vector is used here as a method for storing’©'s display 

coordinates for use by turt. The class cobweb expects two messages, the color of ©'s ink and the color 

of turt s ink. ©’s width is set to 3 and turfs width is set to 1. Cobwebs are drawn as long as you 

press the top mouse button. Clearly, this sketching method is designed for the color version of 
Smalltalk. 

to cobweb n i xs ys turt 

({&*ri +- 10. ©’s width <- 3. ©’s ink «- 

(3*turt «- turtle frame ©’s frame. 
turV s width *- 1. turV s ink *- :. 

0 s xs *- vector n. (§*ys «- vector n. 
repeat 
(button 4=> 

(xs[l to n] <- all mx. ys[l to nj all my. store mx in all of vector xs 


C 1 . 

© penup goto xs[l] ys[l] pendn. 
repeat 

(0 - mouse 4z>(done) 

&i 4- 1 4- i mod n. 

turt penup goto xs[i] ys[i]. 

© goto xs[ij 4- mx ys[ij 4 - my. 
turt pendn goto xs[i] ys[ij))))! 

In the black-and-white version of Smalltalk, type 

cobweb (-3) ( -3^1 


store mx in all of vector xs 
store my in all of vector ys 


/ / 


/ / 
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Paint Brush 

Smalltalk also has a method for transferring blocks of designs, such as a solid black rectangle, or one 
specially constructed to resemble a gray ’’color”. The basic method of interfacing brush painting to 
Smalltalk is through the class rectangle. This class definition is available by typing 

filin 'xyfns' i 

A sufficient abbreviated version is 

to rectangle / origin extent 
(<$ has => (C&^t 

IT origin t origin + extent) 

<f center => (t origin + point extent x/2 extent y/2) 

<(’s => (t o eval) 
is => (I SIT eval) 
paint =» (CODE 43) 
isnew => (C sr*origin <- ( tr*extent <- :-))l 

As you can see, this definition includes an escape to machine code (CODE) which supports the 
movement of bits on the display screen. The two instance variables, origin and extent t must be 
instances of the class point , a basic system class defined completely in Chapter IV. The class point is 
a method for working with two coordinates as one entity, for example, as a display point. To create a 
rectangle , type 

source <- rectangle 

(upper left corner point) 

<extent of area as a point whose parts are the area's width and height >! 

For example, try 

&*source <- rectangle point 50 50 point 10 20\ width is 10, height is 20 
The rectangle does not, as yet, appear on the display. 

Suppose you want to fill the rectangle with "color”. "Gray color" is obtained by combining black and 
white dots to form a spatial half-tone which gives the impression of a gray color (like that in 
newspaper print). The number 1 represents a black dot, 0 a white dot. The "paint brushing" works 
by painting "gray" into the source rectangle and then transferring from the source to a destination. 
The destination is designated as a point , the upper left corner of a rectangle that will be made the 
same size as the source. "Gray" is specified as an integer which gets folded into a 4x4 rectangle to 
form a pattern which then gets replicated throughout the area being painted. The folding is 

A B C D -> 

I A | 

I B | 

IC I 
ID 1 

Where A,B,C,D are binary numbers. For example, suppose the desired gray pattern is 
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1101 

0111 

1101 

0111 

*■ 

The corresponding single binary number is 
1101 0111 1101 0111 

" ^ • 

which in octal is 0153727. Hence, the integer to store as the paint "color” is 0153797 rw . * . 

numbers in Smalltalk must begin with the number 0.) Try 0153727. (Note, octal 


(widest mp.\ 
source paint 12 01537271 
source paint 0 destl 
source paint 0 mp\ 


Place the mouse cursor somewhere on the screen. 
Store the gray "color” into the source rectangle. 
Copy the source into the destination. 

Copy the source into the mouse point destination. 


Now try 


source paint 4 destl Copy the complement of the source area into the destination 

PaM 8 321251 i «“<" «•» <■ ~.I~ W Thi. z:z\ b . 

gray into the destination where the destination is a rectangle the 
same size as the source. 

The number following the message paint is an operation indicator. As we have seen: 

0 copy source to destination point 

4 copy complement of source to destination point 

8 source brushes a new gray to destination point 

12 fill source with a gray 

fitto U od; P “‘‘ i0n * h “ ““ 4 m ° d “' ° b ““™ d h” addi " e ,h « to th. 

0 ^° re sourc f into destination (paint—do operation as indicated above) 

1 OR source into destination (merge the l's and 0's) 

2 XOR source into destination (invert) 

3 AND complement of source into destination (erase) 

Hence, you might try the following variations using objects source and dest defined above. 


source paint 1 dest S 

source paint 2 destl 

source paint 5 destl 
source paint 10 dest 321251 


Take source and OR it to the destination. 

Take source and XOR it to the destination. 

Take complement of source and OR it to the destination. 

Source brushes the XOR of the gray (32125) to the destination. 


and so on. Some integers you might use as gray include (these are decimal numbers) 

•1 32125 -5161 -21931 23130 15420 5160 *32126 0 11892 *10213 13260 51 '52 

(Recall that the negative indicator sign is typed as <shift>~, that is, press the key marked while 
holding down the key marked ’SHIFT'.) H y marnea while 



WRITING SMALLTALK PROGRAMS 

Page 42 

Suppo,, you create . shaped are. of gray color i„ the upper left portion of the screen. 

6?=* palette <- rectangle point 0 0 point 16 16\ 

The shape can be a paint brush shape* 

dr* brush rectangle point 20 20 point 16 16l 

i 

and the tone is one of the numbers representing the gray color. 
dP* tone <- 15420\ 


The palette is then the mixture of brush and tone. Design the brush. 


© penup goto brush center pendn. 
©’s width *■ 8. 

do 2 f © go 2 turn 90) 1 
The combination is 

o. - I 

brush paint 8 palette's origin tonel 


To spread the paint around, try 

repeat (button 4 => (palette paint 8 mp tone ))! 

Try building your own painting system using the Smalltalk painting brushes. 

BITBLTing A part of the Smalltalk system is the ability to move blocks of bits f0'< ,• •> , 

one part of the memory of the computer to another ouicklv Th P q b C ° ® d 1 s) from 

used with caution is > Q y- he Smalltalk program that should be 


to BLT (CODE 41)1 

It requires twelve messages which are, in order: 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 


base address of the destination of blocks of bits 

destination raster 

destination x 

destination width 

destination y 

destination height 

operation code as defined above for paint 

base address of the source of blocks of bits 

source raster 

source x 

source y 

gray color 


\ 


r. h : Ut c, t00 , mUCb r Planati0n - we 0ffer the foll ° wi ng useful definitions f 
shape and color of the mouse cursor. 


saving and changing the 
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to cursor p buf gray 
(<f loadfrom =» 

(&p + 

BLT 281 1 0 16 0 16 0 mem 60 32 p x p y O') 
<f copyto => 

(Cihp + 

BLT mem 60 32 p x 16 p y 16 0 281 1 0 0 0) 
show =» 

(<s*buf 4- <§=>p <- PNT buf. 

BLT 281 1 0 16 0 16 0 p+2 1000) 
makebuff => 

C&^buf 4- string 32. 
p <r PNT buf. 

BLT p+2 1 0 16 0 16 0 281 1 0 0 0. 
tbuf))l 

to PNT (mem 255 + :. mem 255)1 


Try 


(resource <- rectangle point 0 0 point 16 16i 


(&*savecursor + cursor makebuff ! 


A string containing bits representing the cursor. 


source paint 12 m 516l\ 


Paint gray color in the source rectangle. 


cursor loadfrom source's origini 


loadfrom requires a pointer to the upper left corner of 
a 16 x 16 area (source rectangle upper left corner). 


cursor show savecursor I 


Restore the cursor to original shape. 


Or try the palette example given earlier. Then say 


cursor loadfrom palette's origini 


Now 


repeat (button 4 => (palette paint 8 mp tone ))§ 


The cursor looks like the paint brush! 
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Chapter III. THE SMALLTALK 


AND ITS PRIMITIVES 


* -/:! • - 
•si'* •• 


Up to this point, we have provided a "try it and see the flavour of what happens" style of 
presentation. In this chapter, and in the next, we modify the style in order to provide a direct 
discussion of the basic Smalltalk concepts: classes, instances, and message sending and receiving. We 
assume, however, that the reader has examined earlier chapters and is familiar with the special 
Smalltalk symbol set presented there. The following is a summary of these symbols. 


-*s - .4# 

look to see if a specific word appears as the next word in the message. 


receive the next value from the message. 


receive the next literal token (single word or words enclosed in parentheses) from 
the message. . ; 


indicates conditional statement: if-clause => (then-clause) else-clause. 


return the following object; the object is "active" in the sense that the next action 
taken is to run this object’s class definition and to let this object examine the 


message. 


SELF 


W- f 

name used to refer within a class definition to the active instance of a class. ^ ^ ^ 

delimiter used between names of class,j instance, and temporary variables in the 
title line of a class definition. 1 



Objects 


Every entity in Smalltalk’s world is called an object. Objects can remember things and communicate 
with each other by sending and receiving messages. Every object belongs to a class (which is also an 
object). The class handles all communication (receiving a message and possibly producing a reply) for 
every object which belongs to it. 1 


Examples of objects: 


Class Name 


Objects 


number 

string 

atom 

vector 

turtle 


3 4 3,14159 6.28e-23 | 

'this is some text' 'here is some more 9 
x y file3 number f 
Cl 3 5 7 9 11 13): 


... 


Message Sending and Receiving 




fr 

A message is sent to an object by first mentioning the object and then mentioning the message. 


.MK.' ‘2T3T-,'. ■ .... . — 

Messages are simply strings of words separated by spaces. A "word" is either (1) a string of 
alphanumeric characters beginning with an alphabetic character, • (2) a string of all numeric 
characters, or (3) one of the special symbols listed above, ©, or any arithmetic operator. 

T7.' 


- 
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Examples of sending messages? 



Communication 

Object 

Message 

Reply 

1 . 

3+4+5 

3 

+4+5 

12 

2. 

5 mod 3 

* 

5 

mod 3 

2 

3. 

'abc’+'def' 

'ahc' 

+’def' 

'abcdef' 

4. 

© go 100 

© 

9 

go 100 

© 

5. 

do 4 

f © go 50 
turn 90.) 

do 

4 

f © go 50 
turn 90.) 

none 

6 . 

joe grow 50 

joe 

grow 50 

none 

7. 

joe turn 25. 
jill grow 30. 

joe 

jill 

turn 25 
grow 30 

none 

none 


Graphics Action 


none 


none 


none 

draws a line 100 units long 

draws a square with side 
50 units long 


j°e* the box , grows his 
sides by 50 units 

joe turns 25 degrees 
jill grows her sides 30 units 

ways for messages to be received** Once^messige^srlleiLd^the , ad ‘* ition * the user can add new 
as returning a message to the sender ( reply ) or modifying a graphic display IgrT^Taction).^’ ^ 

Notes on the Examples: 


Communication Object 
1. 3+4+5 3 


Message Reply Graphics Action 


none 


d +4+5 12 

The expression 3+4+5 is handled by sending the renlv nf th 

at a simpler message: 3+4. In the class number, we have messa S e back to 3. First, let's look 

<f+ => ((t+b IT 'result of computing the sum of SELF and b’J 
The action taken after seeing the '+* ic to r o/»o* . 

Then return (t) to the sender a reply calculated somel^ fr °™ the messa S e and give it the name b. 
active instance of the class (referred to by the name SELFl ^ Ca ' C , Uiatl0n uses the v alue of the 

simplified example, the value of SELF is 3 and the value of b is 4 ^Thi.” T “* ° f ^ In the 

Smalltalk code as in the first example but can also hn ^ hls 1S usuall y done using more 

•hi, example. Such ^ ZoTeZUZZ “» - <» 

Hence, .cm* the 'V, .he receive, (3) receive, . v , lue ^ (?) 

In example 1, after the object 3 first sees the message + tho <*= z. 

is^T t\V eSt ° f the message - In this ca «, the rest of the message is 4 + 5 Jh ^ FeCeiVe 2 V3,Ue 
is sent the message +5, which will activate the same line in th/n r ^ 4 ‘ S 3 number als °- It 

4 sees the + and tries to get a value (5) into ITS 'b' Thero • f t mition of number as 3 was using. 

computed and 9 is returned to 3 as the value of itc ' « nothing more in the message so 4+5 is 

* th - r sl r. isrr r 3 —« 


j 
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Communication Object 
2. 5 mod 3 5 


Message Reply 
mod 3 1 2 


Graphics Action 
none 


In the example above, a message is sent to a member of class number (the literal 5). ’mod* is a token 
which class number can recognize (we’ll see how in a bit). It indicates a desire for finding the modulo 
of the number with respect to another numberi We need another item from the message, this time a 
numerical value. The part of class number which receives this general message form looks like: 


S' 


<fmod => (t SELF - (& b *- * SELF 


This means: if, in the message, 
you see 

the word ’mod* 
then 

do the following: 
receive a value from 
the message and give 
it the name b 
then 

return to the sender 
a reply calculated by 
dividing yourself 
by the value received; 
multiplying the result 
by that same value; 
and subtracting this last 
result from yourself. 


k; 


mod 


** * 


i 


dr’b < 

v?? r.'-; 

t 

qgW 

si:.. 


4* 




SELF/b 


b * SELF/b 


SELF - b* SELF / b 

I 

t 


To clarify the right-associative nature of the evaluation, we add the following, somewhat redundant 
explanation of the above message. The uparrow (IT) expresses the action of actively returning some 
value (that is, the returned value is an object that becomes the immediate next message receiver; it 
is able to examine the rest of the message). The value returned is obtained by evaluating the next 
object in the message, here, SELF. Because SELF is an instance of class number , it looks for and 
finds an arithmetic operator (-) and asks to fetch the next value from the message. This in turn 
effects the evaluation of the parenthesized message (C&*b <-:.). The value received is a number , hence 
the value of b is an instance of number. This instance is still active and is able to look at the message 
and see the multiplication operator (so far, the subtraction has not been completed). Upon seeing 
that multiplication is indicated, a fetch is made for the multiplier. This activates the second 

• ■ jt 

reference to SELF, a number that sees the division, retrieves the value of b, and completes the 
division operation. The result of the divison operation is the multiplier; the result of the 
multiplication is the subtrahend; the result of the subtraction is the value returned. 

Most lines in class definitions resemble this one strongly because Smalltalk is modelled on the notion 
of communication by sending and receiving messages. 




Since everything in Smalltalk is an object and every object can send and receive messages, 
’’expressions” (as in example 1) can be built by simply sending more messages to returned values 
which have already been calculated. The messages can be cascaded in a single message stream, or 
determined conditionally as actions specified in a class definition. Message streams are typed to 
Smalltalk by the user or included as part of the definition of a class. 




If a number can answer the question is number affirmatively, then we can easily test the value in the 
previous example (which was given the name 'b') by: 


& 
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*fmod => ((CP*b <- :J is number => (t SELF - b * SELF / 

error (&*(' non-numeric operand*) ) 

We don't usually bother to do this as it is much better for the action to discover that a value is of the 
wrong class by sending a message which it doesn't understand. 

The object error handles printing the specified message in a Smalltalk sub-window and letting the 
user investigate the context of the error. 


Communication Object Message Reply Graphics Action 


3. 'abc'+’def' 'abc' +'def' 'abcdef' none 

Class string has a way very similar to number for receiving a message and then doing something. 
Here, the action is string concatenation. 

<f+ => ((tr*b *- :. If * result of concatenating SELF and b*) 

In other words, receive a value from the message and give it the name b. Then return to the sender a 
reply calculated somehow. Again, this is probably done using an escape to lower levels of the system. 


Communication Object Message Reply Graphics Action 

4. © go 100 © go 100 © draw a line 100 units long 

The message to the turtle to go 100 units (100 "dots" on the display screen) is received in a manner 
similar to the second example. A turtle actively returns itself, thus permitting the cascading of turtle 
messages. 

=> ((Sadist .*. *Somehow make turtle go dist* If SELF) 


Graphics Action 


draws a square with 
side 50 units long 

Control Structures' in Smalltalk work the same way. The object do receives its message! 

<- ;. &*exp *- o. 'method for doing exp N times' 

The o means receive the message "literally". We use it here because we don’t want the value of © go 
50 turn 90 (which are actions by the turtle ), but rather its literal form (which is a request for actions 
by the turtle ) to be iterated over and over. We do want to calculate a value for the repetition number 
to allow expressions such as: 


Communication 

Object 

Message Reply 

5. do 4 

do 

4 none 

(© go 50 


(© go 50 

turn 90.) 


turn 90.) 


do a+b*5 (...) 
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Communication Object Message Reply Graphics Action 


6. joe grow 50 


joe 


grow 50 


none 


joe, the box, grows his 
sides by 50 units; a larger 
box is displayed 


method: 8 tyPi ° al 10655386 ^ “ graphical ° bject - We wil1 sh ° w the receipt of the message and its 

grow => (SELF undraw. 

&*size *- size + 

SELF draw) 

H fTh W f ' Undraw ' 0Ur£ ELF using the old size, compute the new size by adding a new 
value received to the old size, and tell ourSELF to 'draw' using the new size. 

Communication Object Message Reply Graphics Action 


7. joe turn 25. 
jill grow 30. 


joe 

jill 


turn 25 
grow 30 


none 

none 


one box on screen tilts 25 degrees, and 
then another box grows 30 units 


Here we see a bunch of send messages done in sequence. The period terminates a message and 
ence separates two message communications. In many cases, the period is not needed as the 
message receiver will be able to determine how much of the message to examine Tho ' a a 
however, serve the syntactic purpose of disambiguating the end of a message. P6ri ° 

The order of communications is done sequentially from left to right (as with English text), so: 
joe turn 25. 

is done before 

jill grow 30. 


The Notion of Class 

The basic class definition deals with just two ideas: 

1. The notion of creating objects which have independent existence and memory. 

2. The control of the flow of evaluation by sending and receiving messages in various ways. 

For example, a send message is a control action because flow of control is *h 

and resumed in the receive, A reply suspends the context in w~?ch t i 

object which originally sent it a message. Send messages may be ordered in time or he inHiff w 
kind^R ’ C °” d,tl0na ! branching" chooses one path to follow from many depending on a test ofTome 
restarted* V3n ° US CaUS6 evaluation to ha PP*« over and over; they may be terminated or 

„ 4 

S: c ;^“ , r t ^i: r ^ ssase p,opert '“ of sra * nt “' k m * k ° u p °“ ib,e *• 















rf**&gdPfofc^'^ iA f IW jj^ ,^-.«ift! l «i^ f Vhy^) < - ^| ^ r |f | ^ ^ ^ ^ 




■<«Mi«i*^i**fcV.. 
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Here are some of the abilities which have already been built for you to use In th* Hhi i i *u 
wo rd joe is the name of an object that has been created. In creating a SmallLlk object aneTt’ry i! 

T n- ed ll ln a , h K° nary i each entry has tW0 P arts " the name of the object and the val^e of the object 
Typically, the object has value as a class or as an instance of a A , . . . 

chapters, class definitions have information known locally to the class as a whok (cTass variabk-sTor 

T,no° tZ'?™ ‘" dM r , [ y - known locally e«h t 

as part of the description of the instance (instance variables) or exists onlv when the 

definition ’ 3 h T X t d °‘ ng f somethln S (temporary variables). Dictionaries exist at each level of 
definition and activation of classes and their instances: there is a "global" dictionary known to all 

active 3 ’ ° ne SS ’ ° ne f ° r 6aCh mstance of each class < and one for each object currently 


Message Form 


joe b c 


joe 


&j< 


&“( a b ...) 
<fgrow ' 


Meaning 


Send the object joe the message b c. Any message can be terminated with a period (.). 
There will always be a reply of some kind. 

Send the object joe an empty message. Usually the reply will be just a reference to joe's 
value. 

The "hand", says consider the next token literally—i.e., the literal word 'joe' instead 
of the object joe. A literal word is simply a string of characters; an object, however, 
refers to its value as a class or class instance. Here C2> is an object being sent the message 
joe, and the reply is the literal word ’joe'. 

The reply is the literal chain (or vector) (a b ...). , 

look («) in the message to see if the token (grow) is literally there. The reply will be 
•not-false' if the token grow is literally there and the next thing in the message will now 

be available for scrutiny. Otherwise, the reply will be 'false' and whatever was there is 
still available. 


The reply is the value of the next expression in the message. 

The reply is the next literal token in the message. 

Same as 8 except that the current place in the message will be retained regardless of the 
result of gathering the next token. This allows the receiver to "peek" at the message. 

The reply is a reference to the meaning (class or class instance) of the next expression in 
the message. So, for example, if we have d?*func «- iVhp, then the value of func is a 
reference to the meaning of hp; i.e., if hp is a class definition, then func becomes another 
name for the definition hp. Hence, mentioning func is identical to mentioning hp. 


The user can construct other ways to receive messages from these primitives (such as "receivers" 
which check the class of the received object, and so on). 


ft 3+4 


reply (ft) to the sender the value of '3 + 4' which is 7 ; the 7 can now examine the current 
message. 


a =* (b) c => (d) 


• • • 


if a evaluates to ’not-false’ then evaluate b and continue evaluation after the next 
enclosing parentheses. Otherwise evaluate c; if it replies ’not-false', evaluate d and 
continue evaluation after the next enclosing parentheses. Otherwise ... 




T1IE SMALLTALK WORLD AND ITS PRIMITIVES 


Page 50 


The conditional expression a => (b) may be used anywhere in Smalltalk. Don’t forget about the 
’’escape" from the ’not-false' branch! If you would like to deliver one value or another depending on a 
condition, enclose the expression in '( Parentheses in Smalltalk serve a grouping or delimiting 

function: they delimit the ’then-clause' from the rest of a conditional expression; they delimit 
message parts to disambiguate or order the evaluation of the message; they group expressions for 
iteration using repeat or do; in general, they group a sequence of words together as a token that is 
received when the symbol 8 is used. 

3+(a(b r> (4) 5) 

will evaluate to 7 or 8, depending on the values associated with a and b. Here the outermost set of 
parentheses is used to order the evaluation of the message; the innermost parentheses define the 
limits of the ’then-cluase' for the conditional statement. Some examples of conditionally structured 

evaluation include: 

evaluating a or b but not both 
letting evaluation of c depend on a or b 
letting evaluation of c depend on a and b 


a* ()b 

(a => () b) ^ c 

(a => (b)) => c 



repeat ( ... ) 


The contents of () will be re-executed until a ’done' is encountered (or if you hit ESC). 
The escape will be from the innermost loop in which the ’done' is enclosed. 


done 

done with 3+4 

again 

for 

do n(...) 


Will cause the most recent repeat-loop to be exited. 

Will cause the most recent repeat-loop to be exited with the value 7 as a reply. 

Will restart the most recent repeat-loop in which the again resides. 

An iteration control feature included in the basic Smalltalk system, 
for i <- 2 to 50 by 4 do (...) 

Contents of ( ) will be re-executed until the value of index i, starting at 2 and stepped by 
4 each time, exceeds 50. In general, the '«-* part may be omitted and the default index 

start is 1; the ‘by’ part may be omitted and the default step is 1. If the ’to’ part is 

omitted, the end condition value is the same as the start index value. 

The contents of ( ) will be re-executed until the index counter N, starting at 1, equals n 
(i.e., for n «- 1 to n by 1). The counter N is not available as a number to use inside the 

parentheses. 


Objects are created in one of two ways: 

1. Creating a class 

to (class name) (temporary variables) / (instance variables) / (class variables) 
( messages and responses 

2. Creating an instance of a class 

<3* (name) + (value )! 

k 

where <value> is either the result of activating a class or activating an instance. 

Other available (basic) abilities are described in subsequent sections. 
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The User Task 


bjrtypfng h3S 4 USER t3Sk Whi ° h h eva,uated continually. You can see the message that is evaluated 


<3“t <- GET USER (5*DO. I 
t print. § 


Get the USER task. 

Ask to see the message. 


In a Smalltalk system that does not include the dialog window class, the reply is 

(cr. read eval print ) The reply is a vector, a request to evaluate a typed message. 

The task shown above effectively: 


( 1 ) 

( 2 ) 

(3) 

(4) 

(5) 


prints a carriage return in the Smalltalk dialog window (cr); 

prints the Interim Dynabook prompt character (£1), reads characters from the keyboard 
until the <do it> character (!) is typed, 

assembles the characters into a list we call a vectorj 

this vector is then an object that receives the message eval print ; after seeing (<f) the 
token eval, it evaluates its contents as a message; and then 

whatever object the vector returns can receive the remaining message print. Some object 

is always returned, possibly the object nil (an object without value). The default object 

returned from running (activating) a class is the class instance (referred by the name 
SELF). 


Some Comments. The routine read expects to print the characters typed at the keyboard in a dialog 
window whose name is disp. Vectors only respond correctly to the message eval when the last item in 
the vector is nil; hence the length of a vector containing Smalltalk message tokens ("code") is one 
item longer than the number of message tokens in the vector. 

Elffect of the Message Print and the Period. In order to fully understand the results of messages 
sent to Smalltalk, it helps to understand the implications of the print message. As an example, if you 

simply type a number or an arithmetic expression, without explicitly telling the resulting number to 
print itself, the number will, in fact, print. Try 


3+4* 


Now try 


(3+4) printl 
3+4.1 

(3+4) print.* 


Reply is the number printed. 


Reply is the number 7 printed twice without an intermediate space. 

Note the period. Nothing seems to happen. The last message evaluated in the code 

vector is a period; the period returns itself as the reply; it then receives the 
message print and does nothing. 

The number 7 sees the message print and prints itself in the dialog window; the 

next token is a period; the period receives the print message (from the USER task); 
hence only one 7 prints. 


This means that any object obtained as a result of evaluating a message at the top-level of Smalltalk 
will be sent the message print unless the original message is terminated with a period If the 
resulting object does not respond to the message print , Smalltalk runs a "dummy’' class named print 
which does nothing. Unexpected results might occur if the object does respond to the print message 
and the receipt of this message was not intended. 

If you look at the USER task in a Smalltalk system with the dialog window class running, you will see 
the following (code) vector: 




J»SS MALLTALK WORLD AND ITS PRIMITIVES 


Page 52 




I _ 

(4ched map Q*((3*task «• vec[i]. apply task to ( &*(run) in GLOB )! 


*“ k . aSSUme / that there is an ob i ect named sched (an instance of the class ohset), and that 

e ach of which sho n uld re ! erenCeS t i° ° ° bjeCtS (f ° r exam P le > dial °S windows and/or font windows), 
of which should receive the message run each time the USER task is evaluated The usual 

response to the message run is to check to see if there is any keyboard input fkbck) and if so to 
evaluate the message (cr. read eval print J. P 1 } d ’ “ s0 * to 


ZcZd a nd I Zd2 ah °' lt thiS taSk iS Pr0Vided in the Chapter V SeCtion entit,ed Scheduling Methods: 


Active and Passive Return. We mentioned that the result of evaluating a message is a Smalltalk 
ob,«ct lh„t =,„ receive the m,«,ge prim, u„l,« a mo.sag, re,mio,„r (, parenthesl, o‘pe™ « 2 

te'.bl. loT-rlh “ y, " £ * h ' r “ Ult eva,uat ' n S * messase is some value, an object that might 

be able to further examine the message. 15 * 


This ability to let an object further examine the message depends on the method used to return it to 

return S former Z thl Tr T meth ° dS f ° r returnin S a val ne: passive return and an active 
oerhaus ’•„£ TW h * * aU J case " ever > r evaluation results in some object whose value is, 
perhaps,, ml. That object is returned to the message sender. Because it is returned passively the 
object can not further examine the remaining message, if any. passively, the 


up he a"o e w '“m^th" ret r n ; eqUireS an T PliCit re ^ uest t0 the object. The Smalltalk symbol 

up arrow (t) , s this explicit request. The form is IT (value> ; the <value> is an object that can 

v2TL?v e ewVenc? e th^r a bTt A1 t th ® ^ tUrtle returns ^ instance 

passively untss^h H f ^ ,° Z messages )- B V daf ault, instances return themselves 

passively unless the definition includes t SELF as a response to each message. The class vector 

receives the message eval and actively returns the result. Hence, the result of read eval is an object 
that can receive the next message: print . oojeci 
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The Form of Presentation of Smalltalk Classes In the next chapter, we present 
definitions for the basic Smalltalk system: the classes already defined for general use, aids for 
interacting with Smalltalk and with the Smalltalk file system. Chapter V contains examples of 
applications of these classes. The basic Smalltalk classes will be presented by showing how instances 
of each class are created and what happens when messages are sent to a class instance. In most cases, 
the messages are annotated; in some cases, the actual definition of the class will be shown. For 
example, a version of the class box defined in Chapter II can be presented as: 

box The name of the class. , 

o 

oe box\ Creating an instance of the class. 

I'm a box : x 256 y 300 size 50 tilt 0 

a 

joe is ?! What is the instance type. 
box 


joe is boxl 

'Not-false' is the same as 'true'. 

box 


joe's x + 200l 

Assigning meaning in joe's context. 

200 


joe's xl 

Querying joe's context. 

200 



joe's y + 250\ 
250 


joe's y\ 

250 

joe's size + 100l 
100 

joe's sizel 

100 

joe's tilt +32 ! 

32 

joe's tiltl 

32 

joe drawl 
joe undrawl 
joe grow 3+4 1 
joe turn 20* 21 
joe move 100 200l 
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Abbreviations 


In order to present these examples a bit more concisely, we need to adopt some abbreviations. 


We Abbreviate 

By 

a property of a class instance 

<property> 

expected value (any type) 

<value> 

expected number value 

<number> 

expected nonnegative integer value 

<integer> 

instance of a class named classname 

<classname> 

name of an object 

<name> 

expected string value 

<text> 

expected message stream 

<message> 

forms involving [ 

<selection> 


We can further simplify the presentation of classes if some class conventions are adopted, such as: all 
classes will respond reasonably to the following messages: 


is? 

is (classname} 
print 

’s (property) «- (value} 
’s (property} 


replies with (classname} 

replies (classname> or false 

prints in standard format 

makes < property> stand for the (value} 

replies with (value} of (property} 


Class box then can be described compactly as: 
box 


(&*joe «- box\ 

joe drawl 

joe undrawl 

joe grow (number >| 

joe turn (number >| 

joe move (number} (number}l 


Draws a square at x = 256, y = 300, size of each side = 50, and 

angle of tilt » 0. 


joe erases, makes himself bigger by <number> units, and redraws, 
joe erases, turns himself by (number) degrees and redraws, 
joe erases, changes his coordinates, and redraws in a new location. 






nwu iJMWWPWi 




■»" 1 U i ! || ! || i 
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A Smalltalk Class Example 

Link is a typically complete form which we present as an example of the conventions for presenting a 
class definition. It is a structure familiar to LISP users: pairs of objects which may in turn also be 
pairs. Instances of link receive and respond to the following messages. 

Set up help and mail box information. 

Create an instance whose name is pair (or, as in LISP, "cons"). 

Ask for the value of instance variable h (or, as in LISP, the "car"). 


link initl 

(impair link C&^john C&^mary.i 

o 

pair headl 

john 


pair tail ! 

mary 

Ctr *triangle «- pair + &*jim.\ 


triangle print.I 

((john . mary) . jim) 

triangle is ?■ 
link 


Ask for the value of instance variable t (or, as in LISP, the "cdr"). 


Create another instance whose head is the instance pair and whose tail is 
(^"jim. 

Show the value of triangle. 


triangle is an instance of what class? 


pair lprt\ Provide some helpful information about the 

I am a link . 

/ consist of (john . mary) 

The form of the class definition is 
to link a I h t I helpprint mailbox 
( <f+ * (K link SELF : ) 

<fhead =» (t (*$*- =» h)) 

<ftail =» (t (<f<- => ( t)) 

0 

<flprt =* (helpprint SELF) 

Sprint => (dispi-'(’. h print. disp*-'.'. t print, disp*■')'.) 

<fis =» (<( link => (f &link) <f ? => (If (thlink) 8. If false.) 

s =» (Gr‘a *■ 8. If (*$ <- => (a <- :) a eval)) 

*Qinit => ((&*help print *- #hp. (tr*mailbox *■ 'no mail'.) 
isnew =* (<S*h *■ :. C &*t *■ :.JJ& 


instance pair. 


to hp ob 

((&*ob 4- or. disp 4- '/ am a ' . (ob is ?) print, 
cr. disp ♦* 1 1 consist of r . ob print. )\ 





BASIC SMALLTALK SYSTEM CLASSES AND UTILITIES 


Page 56 




Chapter IV. BASIC SMALLTALK SYSTEM CLASSES AND UTILITIES 


sfe 1 


The Basic System Classes 


See the end of Chapter III for an explanation of the^method for presenting the basic Smalltalk system 
class definitions. i I 


Atoms 


« - 


Smalltalk atoms are unique tokens which are usually associated with Smalltalk objects in dictionary 
entries. If a user attempts to create an atom which will print the same as an already created atom, 
the system will force the two to be the same. f 

i- I 


atom 


Csr*a «- (i 

b 


The value!of a is the atom b. 


(3* a «• atom <text >1 


•s' 

Reply is the new name which prints as <text>. 


a charsl 


Reply is the <text> of names value. 


a + <value >I 


■ ' ■ 


The <value> is associated with the name b 
(i.e., this is indirect reference to the name b)* 


The value of a is b. 


< value > 


The valuetof b is <value>, 

5 


a evall 


(value) 


a - (name>\ 


■ XT' 

Indirect reference—a eval is the value of a which 
is b, and the value of b prints, which is <value>« 


Value of a if ’not-false’, ’false’ otherwise. 


- - 




m:r ■ 

*- 

-jil. ’ 1 


■ • 

Si" ' - 

m£r. ■■ 


m ■ 


s Sr ----- 
•«/-: . 

r : 
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Arithmetic 

There are two classes for handling numerical operations: number and float. They are compatible and 
interchangable. An operation containing both classes will have a reply in the class of the first object 
(that is, in the class of the object being sent the message). 

100/8.01 

12 

100.0/81 

12.5 

The value range of number is 
-32768 to 32767 

that of float is (where the form 1.2e3 denotes 1.2 times (10 to the power 3)) 

-99999.99999e4095 to 99999.99999e4095 


An integer beginning with the digit 0 is an octal number; all other numbers are base 10. float must 
begin with a digit from {0, ..., 9). float must have an embedded period, numbers must not. In 
addition, float may be expressed in scientific notation as a product of a power of 10. 


Good Forms 


123 
-123 
0.0 
355.0 
6.28e-23 


Bad Forms 


.0 

355. 

28e-23 


number 

<§*a 1281 

128 

a ♦ (number >i 
a - (number 
a * (number >\ 
a / (number >\ 
a rr.od (number>\ 
- a| 

a * (number>\ 
a * < number > ! 


Value of a is 128, a number. 

Reply is the numeric sum of the two objects. 

Reply is the numeric difference of the two objects. 
Reply is the numeric product of the two objects. 

Reply is the integer quotient of the two objects. 

Reply is the integer remainder. 

Reply is the numeric negative of a. The unary minus 
is typed holding down the <shift> key and pressing 

Reply is the value of a if 'not-false', otherwise 'false'. 

Reply is the value of a if 'not-false', otherwise 'false'. 
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« ( (number)\ 

a - ( number >| 

a ) (number )| 

a - (number )I 

a □ (number )| 
aE3 (n umber )\ 
afe}( number) J 
ciQ< number) ! 
a£]( number )\ 

a min(number)\ 


Reply is , jf 'not-false', 'false' otherwise. 

Reply is a if 'not-false', 'false* otherwise. 

Reply is a if 'not-false', 'false' otherwise. 

Reply is a if 'not-false', 'false' otherwise. 

* 

Reply is the bitwise logical operation of the two values, 
logical AND 

logical OH 
logical XOR 

LSHIFT by the <number> 

Reply is the minimum of the two values. 


a max (number )f 


Reply is the maximum of the two values. 


In the above, (number) 
result. 


can be an instance of number 


or of float, but the result is the proper number 


float 

(&*a <- 3.141591 
3.14159 

float (number)\ 
a + (number )\ 

cl - (number) 1 
a * (number)\ 

* a / (number >J 
-a! 

a - (number )! 
a * (number )! 
a ( (number )i 
a - (number )| 
a ) (number )! 

# 

a - (number)\ 
a ipart! 


Reply is the floating point equivalent of the number. * 

In the following, reply is the proper floating point result, but 
< number) can be an instance of number or of float. 


Reply is the integer part of the floating point number; can 
not be in scientific notation. 

E.g., 27.3 ipart! Reply is 27. 
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a fparti 


Reply is the fractional part of the floating point number; can 
not be in scientific notation. 

E.g., 27.3 fpart! Reply is 3. 


a ipow <number) ! 


Reply is the result of a to the power <number>. 


a epart (float) | Reply is X where X ipow <float> = a . 

. E.g., 27.0 epart 3.0! 

Reply is 3.0. 

This is used for printing floating point numbers. 
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Turtles for Drawing 

A turtle is a method for drawing on the display screen. The class turtle was introduced earlier in 
Chapters I and II. Turtles , like ©, can receive any number of cascaded messages. For example, 

© penup goto 200 300 pendnl 

is equivalent to: 

© penup . 

© goto 200 300 . 

© pendnl 

However, there is no cascading after the’s message. A turtle’s width can vary from 0 to 8 dots. Say: 

©’s width *- 4. © go 100% 
turtle *' 


dr*© 4- turtle frame <dispframe)% 
dr*© 4- turtlei 


Turtle's range is defined by the boundaries of the dispframe. 
Turtle’s range is the entire display screen. 


© homel 


Picks up pen, takes © to geometric center 
of range, faces upward. 


© erase I 
© up! 

© penupl 


© pendnl 


© blackl 


© whitel 
© xor% 

© go ( number >\ 

© turn <number >! 

© goto <number) <number)% 
© goto <point>% 


Erases range. 

Faces turtle towards Aop of display screen. 

Any travelling will not leave a trace. 

Any travelling will leave a trace if ink is different 
from background. 

Sets ink to black. 

Sets ink to white. 

Trail exclusive-or-ed with other stuff on screen, if widths 1. 

Travels in current direction a distance <number>. 

Turns clockwise <number> degrees from current direction. 

Travels to x - <number>, y = (number), 

Travels to the place represented by the point and 
does not change its direction. 

A 

Prints the text (or the character represented 
by the Ascii code <integer>) at the turtle's 
current location, with its direction, width and 
color. 


© 4- <text>\ 

© 4 • < integer >! 
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The False Class 

is a method for handling boolean operations. 
false 

»■ • 

(school falsel 
bool ^ ((message) 
bool or <message)\ 
bool and (message )! 
bool ( (message)l 
bool - (message)l 
bool ) (message >! 


Since bool is ’false’, gathers up the message without 
evaluating. 

Reply is result of evaluating (messaged. 

Evaluates message; reply is SELF. 

Evaluates message; reply is SELF. 

Evaluates message; reply is SELF. 

Evaluates message; reply is SELF. 


» 


4 


-i 
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Sequential Dictionaries 

include the classes! vector, string, obset, stream, file . 


: v t. V-ST 


Vectors and Strings 


4fr 

£ 

££' 


1 

are both organized like beads on a string. Their only difference is the way they respond to: 


is ? 


1 

. 


and that a vector may have any Smalltalk object as a bead while string may only contain whole 
numbers ranging from 0 to 255. String objects are thus not absolutely necessary (since vector beads 
can contain any Smalltalk number), but -are very useful as a compact way to store textual 
information. The characters you type to Smalltalk are first captured as a string object and the textual 
information which Smalltalk shows you is held as a string object belonging to a dispframe object. To 
save space, the messages of both these classes will be shown together, repeating messages in the 
separate columns only when expected values and replies diffeii 


vector 


<- (&*(this is a vector literalJ\ 
(this is a vector literal) 

(tr'a <- vector ( number )\ 


a[< number > j! 


*[ <number:lb> to <number:ub> j! 


a (selection) (value )! 


a (selection) + (value) (selection)l 


■ ■ 

y 


string 

w j'-.j 
- ' - 

TSfc.'. 

$ '-’xi - 

_ | ^ 

*- 'this is a string literal'i 

I 

'this is a string literal* 
dP^a string (number )| 

i 

Objects of the class are ^created with initial length <number>. 

I 

■* 

Reply is the value of the bead found at position <number> Note that 

the first position is 1, pot 0. 

I 

J 

Reply is a 'subvector’ or 'substring' of beads whose values are copied 
starting at <number:lb> (lower bound) and ending with the value at 
<number:ub> (upper bound). We call either of the forms involving 
[]> [<number>] and [<number:lb> to <number:ub>], a <selection>. 

- 'jT 

If the <selection> is of a single element, the value of the bead found at 
position <number> becomes <value>. Otherwise, <value> is expected to 
be a string of beads 6f the same class as a and of any length. The 

<selection> is replaced hy the <value>. 

■ r 

^ ;V X- 

The form <value><selection> is a method for obtaining a string of beads 
of the same class as a I 




f 

m 

I 




a (selection) «- all (value )! 


Copies the <value> into each element in the selection. This was used in 
the sketching example in Chapter II: cobweb. 


a (selection) find first (value )I 


Reply is the first bead position <number> where a[<number>] is the 
same as <value> if a[<number>] is found in the range of the 
<selection>, 0 otherwise. 


O < selection> find first non <value>\ Similar to previous, except elements of <value> are ignored. 


I 

s 

£ 


‘«f^- 


— ' 

«T- •- 

' 

SSf. ■ ■ 


I 

I 
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Q, (selection) find Inst (value)\ Reply is the last bead position (number) where a[(number)] is the 

same as <value> if a£<number>3 is found in the range of the 
<selection> ( 0 otherwise. 


a (selection> find last non (value )! 

* 

a evall 


a lengthl 


Similar to previous, except elements of <value> are ignored. 

Vectors only. Treats the contents as Smalltalk code. Evaluation is in 
current context; last item of vector must be nil. 

Reply is the number of bead positions 


a + (vector) J 


Joins copies of a and <vector> (<string>) into a new vector 


a + (string )l 
a map (vector)\ 


(string). 

Vectors only. The value of <vector> is sent as a message to each of 
the beads of a. 


a = (string )l 


Strings only. Reply is <string> if a is identical to <string>; otherwise 
false. 
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Obsets 

Obsets are "bushel baskets" which can hold things for you. They can be used like mathematical seta 
(having only unique values) or like "bags" (being able to contain duplicate values). Instances of obset 
are frequently used as schedulers for the objects which they contain. For example, the display windows 
of various kinds are all contained in an obset called sched. An instance of obset owns its own instance 
of vector and provides a method for automatically expanding the vector , storing objects in the next 
available position in the vector , and removing objects. 

obset 


&ob <- obsetl 
ob +■ < value)* 


An instance of obset is given the name ob. 

If the <value> is not already in ob it will be added, otherwise ob stays the 
same. This addition method (set union) depends on checking for 
equivalence of the values in ob. Since ob actually contains pointers to the 
Smalltalk objects, large integers of the same value will typically not be 
equivalent, as their pointers are not equivalent. 


ob delete <value)\ 


Assuming there is only one occurrence of <value>, it will be deleted if in 
ob; if there are multiple occurrences, only the first will be deleted; reply 
is ’false’ if there is no occurrence. 


ob add <value 


The <value> is added whether or not one already exists there. 


ob unaddl 


The most recently added <value> will be deleted. add and unadd can be 
used to implement a "stack**. 


ob vec\ 


Reply is a vector containing all the objects of ob. 


ob map <vector) 


Evaluates the <vector> n times where n = the number of objects in ob'# 
vector. 


An obset is one method of using vectors. Objects in an obset are actually stored in a vector that is 
locally bound to the instance of the obset. The vector instance is named vec; i is the index counter 
used in replying to the message map. Hence, if we wanted to send every object in the obset sched the 
message run, we would say 

sched map ?ec [i] run )! 

where vec[i] refers to the ith object in the obset. It is also possible to refer to each object by the 
object each so that the above message could be written as 

sched map &*(each run 

Many users add their own version of intersection, union, and so on, to the definition of obset . 
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Streams 


Streams are similar to the BCPL programming language method for storing and retrieving 
information. A pointer, i, is kept to the current stream item; pointer L keeps track of the last 
storable item. The actual storage method is either a string or a vector bound to the instance of 
stream. We use double quotes " to indicate optional forms. 


(sr*s «- streaml 

o 

af*s stream of vector <m>\ 

(x?*s stream of string <m>\ 

C&*s stream "of vector (m)" "from (integer 1) 
C &*s 4- stream "of string <m>" "from <integer 1 > 


Default is to create storage in a string of length 
10; i=0; L=10. 

Create storage in a vector of length m; i = 0; L=m. 
Create storage in a string of length m; i=0; L=m. 

to <integer2)"l 
to <integer2>"\ 


s 4- <value>1 

s contents! 
s next! 

s reset! 
s end! 


Initially, s is either a string or vector referenced starting before the 
first item (i = 0) up to the last storable position (L= length of the 
string or vector). Or, optionally, s may be a different length string 
or vector (m) whose contents are referenced beginning with an index 
other than 0 (i= <integerl> - 1) up to an index other than the 

actual string or vector length (L = <integer2>). 

Stores in the next (Cv*i«-i+l) item of the stream, expanding the 
length of the stream if i=L. 

Returns the stored items (from the first up to the ith item). 

Returns 0 if i = L; otherwise, returns the i+lst item and increments 

t. 

Resets i to 0 (points to the beginning of the stream) 

Returns true if i is the end of the stream (i=L); otherwise returns 
•false' 


BASIC SMALLTALK SYSTEM CLASSES AND UTILITIES 


Page 66 


Files 

The Smalltalk file system provides for instances of the class directory divided into files. A file is 
found in a directory by its file name (fname). A file name must be an instance of the class string. 
Each file has in its local context a character pointer (bytec) and a 512-character string as an i/o 
buffer ( sadr ). Each file also knows the directory in which it can be found ( dirinst ). 

Initially, there are two directories: dpO , dpi . However, only dpO should be used unless the Interim 
Dynabook is equipped, for example, with two Diablo model-31 disk drives or with a Diablo model-44 
disk. When creating a file instance, you actually send a message to an instance of the class directory. 
Effectively, this sets the instance of the directory as the value of curdir. If the directory reference is 
omitted, Smalltalk runs the class file with curdir equal to nif, indicating that the directory should be 
the default name stored as defdir. Unless specified, defdir is defaulted to dpO. To modify this, type 

(directory> use! 

In the following,. "<directory>” is therefore optional. 

m 

Creating File Instances 

( &*fi <- < directory} file <text> oldl Searches for a file previously defined in the 

directory; returns 'false' if not found. 

’ •' * • * ’/ '*■ : v* '^ 5 -. ir.V.'J*- • * ; . 

- ‘ - ■ - - • ■ ’■ '* 

(&*fi + ( directory > file <text> new\ Creates a new file or returns 'false' if a file with 

the same name already exists. 

(s*fi <- < directory} file (text}i First attempts to find an old file; if it fails, then 

creates a new file. 

< directory} file (text} exist\ Answers the question, does the file already exist 

in the directory? 

Deleting a File 

(directory} file (text} delete ! Deletes the file if it exists; returns ’false' otherwise. 

Renaming a File 

(directory} file (text} rename (text}\ 

Loading and Saving Entire Smalltalk Context 
(directory} file (text} load\ 

(directory} file (text} save! 

Interrogating the Directory 
(directory} fist! 


4 

Will print the names of all the files on the directory. 


Reading and Writing a File 
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It is possible to read and write strings, words, or characters from a file. A word is simply two 
characters on even character boundaries, while a string is a set of n characters. In the following, 
local context for a file instance includes: 


leader 

disk address of page 0 

curadr 

disk address of current page 

nextp 

disk address of next page 

sadr 

512 character string 

bytec 

character index into sadr 

numch 

number of characters on the current page, must be 
512 unless current page is the last page 

pagen 

current page number 

snl,sn2 

unique 2 word serial number for the file 

version 

version number, currently always 1 


fi «- (integer >\ 
fi «- (text>\ 
fi next l 
fi next word\ 


Store a number (Ascii code). 

Store each character in the string onto fi. 

Read the next character from fi (8 bits). 

Read an integer from fi (16 bits). Adjusts character pointer to 
retrieve the logical next word. 


fi next word (number ) f Vfrite the number into the next word of fi. 

fi next into (text)\ Read enough characters from fi to fill the string <text>. This is 

essentially, but not identical code as, 

for j to <text> length do (<text>[j] «- fi next) 


fi flushl 


Write out sadr (the i/o buffer) onto fi. 


Addressing a File 
fi skipnext ( number >\ 

fi end\ 

fi shorten to <integer> <number>\ 
fi shorten to herei 
fi printl 
fi reset f 

fi set to write < integerXnumber>1 

* 

fi set to read <integer> (number )! 
fi set (integer>(number>\ 


Relatively positions a file. 

Same as fi set to read pagen bytec + :. 

Returns file instance if pagen, bytec points to the end of the file; 
returns 'false' otherwise. 

Set nextp to 0, pagen to integer, bytec and numch to number. 

Same as fi shorten to current file location, i.e., pagen bytec. 

Prints the file name. 

Same as fi set 1 0 (point to beginning of file). 

Sets bytec to number; pagen to integer; allocates new pages if try to 
go beyond the end of file. 

Same as write but will stop if try to go beyond the end without 
allocating new pages. 

# • 

Same as set to read. 
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fi set to end! 


Same as fi set to read 037777 0 (i.e., forces end of file). 


Files Open List 

A list of file and directory instances currently being referenced for each directory is kept in a "files 
open list". 


<directory > printi 
<directory> flushl 
<directory> close! 


Prints the entry names of each open file in the directory. 
Write out the current state of each file in the filesopen list. 


Flush the directory and reset the filesopen list. 


Individual files can be added or removed from the files open list. 
<directory> remember <value )! 


<directory> forget <value>l 
fi removel 
fi close! 


Remove file from the files open list. 

Remove file from the files open list and flush the bittable and the 
current page. 
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Dispframe: The Basic Window Class 

Text Display Routines 

Smalltalk has a multiple-window display capability which allows viewports composed of text, pictures, 
musical notation, and so on, to be created. The main method for creating and editing windows of text 
is to create instances of the ciass dispframe. These display frames are rectangular areas on the 
screen. They are specified with five values: an upper left corner horizontal position x, a width, an 
upper left corner vertical position y, and a height. A fifth value specifies either an instance of class 
string or creates the instance by including the words string (integer}. Hence 

( sr*df <- dispframe 16 256 16 256 string 400\ 

gets you a rectangular area on the upper left portion of the display screen. The upper left corner is 
16,16; the width and height are 256; and a string of 400 characters (whose local name is buf ) serves 
as the text buffer. This buffer is altered by <- (store characters) and by scrolling in the window. Or, 

(s^ef <- dispframe 3 100 50 200 ' ' ! 

gets you a rectangular area at upper left corner 3,50 with a width of 100 and height of 200. The 
buffer is a string with length 1. The instance variable last is set to 0. It is possible to create a 
dispframe by stating the actual text of the frame, i.e., 

(&*gf *- dispframe 3 100 50 200 'hello there '! 

However, the text will not show because the index into the text string is last = 0, indicating that no 
characters are to be shown. 

There are actually two entities associated with a display frame: a frame and a window. Clipping and 
scrolling are done on the basis of window boundaries. Window boundaries are intersected with the 
physical display screen. The frame may be smaller or larger than the window and smaller or larger 
than the physical display screen. Frame boundaries are the basis for word-wraparound. 

Presently, dimensions defining frame and window boundaries are given the same values upon creating 
an instance of dispframe. The following are local bindings (instance variables) for each instance of 
the class. 


winx 

winwd 

winy 

winht 


window upper left corner x 

window width 

window upper left corner y 

window height (note, automatically increased on creation of the instance 
to make the window extend to the bottom of the display screen) 


frmx 

frmwd 

frmy 

frmht 


frame upper left corner x 
frame width 

frame upper left corner y 
frame height 


buf 

string buffer 

last 

pointer to the current last 

Istln 

pointer to the character in 

mark 

pointer to the character in 


character stored in buf 

buf that begins the last line of text in the frame 
buf representing the last prompt output 


chCLTX right x position of the character pointed to by index last 

chary top y position of the character pointed to by index last 
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reply indicator for frame and window control (see below) 

justify toggle for right justifying the contents of the window 

0 means no justification; 1 means justify on frame boundaries 

font font for displaying characters 

if nil, then default font used; otherwise, the value of font is 
a string defining the font to be used (see below) 

editor available storage for associating a unique editor with any display frame. 

The text buffer buf contains only characters that can be displayed within the window boundaries. 
Scrolling occurs when an attempt to store more characters causes overflow of the bottom of the 
window. In this case, the first line of characters (where a line is defined according to frame 
boundaries) is stripped out of buf . 

The reply variable is useful in controlling window and frame boundaries and scrolling. The following 
are meaningful values for reply: 

0 everything is okay--there was intersection between window 

and display and between the window and the frame. 

1 no intersection between window and display 

2 no intersection between window and frame 

3 window height less than font height so not even one text line can be displayed 

4 frame height has been increased to accommodate new text 

5 overflowed bottom of window (scrolling) 

6 both 4 and 5 occurred 

To get a different font other than the default font, it is necessary to read the font string from a 
previously created file (see section on Editfont on how to create fonts). Type 

&*ff <r file <text> intostringl 

Then, assuming the name of the dispframe is disp , say 

disp^s ((&*font <- ff)l 

Or, you can declare the font at the same time you create the instance of the dispframe . 

(sr'df dispframe <integer} <integer> <integer> <integer> <text>\ 

C&^df <- dispframe <integer> <integer) <integer> <integer} string < integer }\ 

Create an instance of dispframe with values for window and frame 
boundaries and length of the text buffer. The window will appear 
on the display screen with a black double line around it. In the 
first case, where a text string has been specified, it will not appear 
• because the variable last is set to 0. It would be necessary to type 

df’s (Ci?*last ♦* buf length), df display.! 
to actually see the text. 

C tr*df <- dispframe <integer} <integer> <integer> <integer> <text> font <fontstring>\ 

(s^df «- dispframe <integer> <integer} <integer> <integer> string <integer} font <fontstring>\ 

Create an instance of dispframe with value for font. 

( P^df <- dispframe (integer> <integer> <integer> <integer> <text> noframei 

4- dispframe <integer> < integer> <integer} <integer} string <integer} noframei 


. t 

‘ * >•/». ' _ 
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Create an instance of dispframe with values for window and frame 
boundaries and length of the text buffer. Window will not have a 
black line around it. 

Append the string <text> to buf and display if possible 
Append this Ascii character to buf and display its corresponding 
character if possible. 

Clears the intersection of window and frame and displays buf. 

Does a show, then draws double black line around the window. 

Draws a double black line around the window. 

Same as df frame. 

Draws a double white line around the window. 

(color display only) Draws double line around the window in color 
denoted by the integer number. 

-df hasmousel Returns 'not-false' if the mouse cursor is within the frame; 

otherwise returns ’false'. 

Clears the intersection of the window and frame. 

Clears the intersection of the window and the physical display. 

Does an fclear and then sets last to 0 and lstln to 1, effectively 
cleaning out the text buffer. 

df SCrolll Removes the top line of text from buf and moves the text up one 

line in the frame. 

df mfindc (integer)(integer >! Find character located at <integer>,<integer>. 

Returns vector vec such that 


vec[l3 

subscript of character in string 

vec[23 

left x of character 

vec[33 

width of character in string 

vec[43 

top y of character 


If vec(l3 = "l then position is after the end of string. 
If vec£l3 = “2 then position is not in the window. 

df mfindw (integer) (integer )\ Find word located at <integer>,<integer>. 

Returns vector vec such that 


vec [13 

subscript of first character in word 

vec[23 

left x of word 

vec(33 

width of word 

vec(43 

top y of word 


If vec(l] = -l then position is after end of string. 

If vec(2]=-2 then position is not in the window. 

df mfindt (integer) (integer >| Find token located at <integer>,<integer>. 

Returns vector vec such that 

ve c[l] token count where spaces and carriage returns 

are considered delimiters but multiple 
delimiters do not increment the count. <text> 
counts as one token. 
vec ([23 left x of token 

vec[33 width of token 

vec[43 top y of token 

If vec[ 13 = “ 1 then position after end of string or not in frame. 

If vec[l3 s -2 then position is not in the window. 


df f clear ! 
df wclearl 
df clearl 


« 


df 4* (text)l 
df «- (integer )! 

df showl 

df display ! 

df frame* 
df frame blackl 
df frame white ! 
df frame color (integer)\ 
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df redd! Makes a vector out of keyboard input. Assumes the name of the 

dispframe is disp. 

df reread (integer } | (Used by fix and redo). Counts back from end of buf an (integer) 

number of prompts in the buffer and does a read from there. 

df Sllb (value } 1 Evaluates <value> in the context of the dispframe. (Used by fix to 

evaluate the editor within the window and by shift-esc to create e 
window within the window). 

df hidei Same as df felear. df frame white. 

df put ( String } at (X} (y) 5 Prints the text <string> starting at position x,y. 

Upper left corner of df becomes x,y. 

df Corner (x} (y)! Returns 0 if position x,y in no corner 

returns 1 if position x,y in upper left corner 
returns 2 if position x,y in upper right corner 
returns 3 if position x,y in lower left corner 
returns 4 if position x,y in lower right corner 

df moveto (x) (y) 8 Set winx and frmx to <x>; set winy and frmy to <y>. 

df growto (X> (y) 1 Set winwd and frmwd to (<x> - frmx); set winht and frmht to 

(<y>-frmy). 

The last three messages are added to dispframe when the window framework is included in the basic 

Smalltalk system. 

Four routines are available for manipulating rectangular areas of the display. 

dclear (integer> (integer> (integer> (integer> (number>\ 

4 

will clear the rectangular area defined by the four integers, where the order 
specifies:<upper left corner x> <width> <upper left corner y> <height>. The cleared aren 
is then filled with black and white dots according to the binary representation of the 
number given (l's = black, 0's = white). For example, if the number is -1, the area will be 
all black. 

dcomp (integer> (integer} (integer> (integer>1 

will complement the rectangular area defined by the four integers, where the order 
specifies: <upper left corner x> <width> <upper left corner y> <height>. 

dmove (integer> (integer> (integer} (integer> (integer> (integer> (integer }| 

will take the source rectangular area defined by the first four integers (same order as 
above), and move it to the destination defined by the fifth and sixth integers (destination; 
upper left corner x,y). The seventh integer is a mode indicator: if the mode is 0, the- 
source rectangular area will be stored as given; if the mode is not 0, the black and white 
dots in the source rectangle will be ’or-ed’ with the dots in the destination area (0 or 0 »*• 
0; 0 or 1 = 1; 1 or 0 = 1; 1 or 1 s 1). 

dmovec (integer} (integer} (integer} (integer} (integer} (integer} (integer} 1 

same as dmove except that the non-intersecting source rectangular area is cleared. 
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On filing in this file, the ability to receive the message place will be added to the class turtle . 

filout pretty <text>\ 
filout pretty <text> <vector>1 

will format the programs so they will print nicely (in show format). 
filout <text> add\ 

will not overwrite file <text> but instead will add the new definitions at the end of <textX 
Obvious variations include 

filout pretty <text> add\ 
filout <text> add ( vector )\ 
filout pretty <text> add <vector) | 

The (vector) could be given a name such as list: 

C^list*- <vector )| 

and then it is possible to type 

filout <text) Zistf 

will write out the definitions of objects named in list. 

Or 

filout (text) ( &*list\ 

will first write out the definition of the vector list and then the definitions of the objects, 
named in list . Variations with pretty and add are also possible. 

Saving and Restoring Your Context 

file (text) sauef 

will save your entire current state verbatim on the file <text>. 

Example: 

file ' blockworld.sv' saue! 

Try 

file 'dmt.boot 9 loadl 

to start the Interim Dynabook memory diagnostic. 
file (text) load\ 

will restore you to the exact state when the file <text> was saved. Example: 
file ' blockworld.sv* loadi 

This file is also one that you can resume from the operating system. That is: 
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Point Class 


A point is an example of a storage method. Several examples of its use have already been given in the 
Chapter II section on sketching ideas. 


--point 

t&*pt «- point 100 200\ 


Create a point whose horizontal coordinate is 100 and vertical coordinate is 200. 


frt %! 


pt yl 


100 


200 


pt + < point> | 
pt - <point>\ 
pt - <point >! 
pt - <point} ! 


pt max <point}\ 


pt min (point }f 


Reply is point obtained by adding coordinates of pt and <point>. 

Reply is point obtained by subtracting coordinates of pt and <point>. 

Reply is pt y if they are the same points, otherwise false. 

Reply is pt y if pt is a point whose horizontal and vertical positions are smaller or 

equal to those of <point>. 

Reply is a point whose horizontal position is the maximum of that for pt and 

<point>; similarly for the vertical position. 

Reply is a point whose horizontal position is the minimum of that for pt and 

<point>; similarly for the vertical position. 


"This class is provided partly at the machine code level. The corresponding code is equivalent to 
to point a I x y 

(isnew => fdr’x «* :. (&* y <- :.) 

<( x => (<f^ => (Gr'x*-:.) It x) 

<f y => *- => y*-:-J It y) 

<(+ => ((&*a It point x+a x y+a y) 

- => (G^a*-:. It point x - a x y - a y) 

- => ((Gr*a<-:) => (t false) x - a x => (ty = a y) It false) 

<f - =» ((&*a*-:) => (t false) x a x => (t y a y) It false) 

<f max => (t&^a*-:. It point (x max a x) (y max a y)) 

<f min => (G?*a<-:. It point (x min a x) (y min a y)) 

<f print =» (Gr*point print . sp. x print . sp. y print ))! 


Also provided in the basic Smalltalk system is the routine mp 
to mp (t point mx my)\ 
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Aids for Interacting with Smalltalk 


The Smalltalk Class Editor 

edit < classname>\ 

will get you the Smalltalk editor for the class which is named <classname>. 
fix < integer >\ 

where integer is the number of transactions (images of the Interim Dynabook) back front 
where you are, will get you the Smalltalk editor for transaction integer. Upon exiting, th& 
edited transaction will be evaluated, but the original transaction will not be modified. 

edit <classname> title i > 

will start the editing with the title line. 

The editor shows two frames. The righthand frame contains a menu of commands, the left 
hand frame contains a structured representation of the definition. All tokens at a single level 
of parenthezation are shown. A lower level of parentheses is shown as (). An example is: 

do 4 f © go 100 turn 90) 

is shown as 

do 4 () 

All editing is done by grabbing a command in the righthand menu (pointing to it with the 
cursor and pushing the top or middle mouse button). 


In the following, "text” refers to characters typed from the keyboard and terminated with !. 


Commands 

Number of Times Action Taken 

Grabbing Needed 

Add 

0 

Append text to end of current level. 

Insert 

1 

Add text before designated word. 

Replace 

2 

Replace the text indicated by pointing to the 
beginning and end words with new text. 

Delete 

2 

Delete the text indicated by pointing to the 
beginning and end words. 

Move 

3 

• 

Combination of deleting text and inserting new 
text before the word pointed to as third ’grab*. 

Up 

1 

Remove parentheses. 

Push 

2 

Put parentheses around words indicated by pointing 
to the beginning and end of the intended grouping. 

Enter 

1 

See the next lower level. 

Leave 

0 

See the next higher level. 

Exit 

0 

Terminate editing. 
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r The only exceptions are Enter and Up. If there is only one level marker, (), showing in the current 
level, no grabbing is required. 

Showing Stored Information 

**how (name) l 

will show you what meaning the <name> currently has. 


will show you the names of classes you have defined that are currently available. 

dpO list! 

will show you the names of files stored on your disk pack. 
type (text)! 

will show you the contents of file named <text>; returns 'false' if the file does not exist. 

Saving Smalltalk Definitions 

fiUn (text)! 

will go to a file whose name is <text> and tell Smalltalk to read what it finds on the file. 
Example: 

filin 'boxes'! 

Usually the file will contain programs written there by running filout as defined next. 
filout (text)! 

will write every program whose name is in defs to a file called <text>. Example: 
filout 'boxes'! 

will write out every program whose name is currently in defs . There are a few other useful 
variations of filout . 

filout (text) (vector)! 

will ignore defs and only write out the programs mentioned in the vector. Example: 
filout 'boxes 1 (&*(box square triangle)! 

will ignore defs and only write out the three programs whose names appear in the vector. 
Suppose the vector contains vectors, for example, 
filout 'boxes.' 

(&*(boxes square (addto turtle <sr*(<f place => (SELF penup goto (:)(:) pendn up))))! 
will write out the programs boxes and square , and then the vector 
(addto turtle (<fplace => (SELF penup goto (:)(:) pendn up))). 
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resume blockword.sv (return) 

will restore you to the exact state when the file was saved. 

Utilities 

^are already written programs which provide useful services such as reading the keyboard and the 
^oaouse, telling you how much room is available, and so forth. 

nil 

stands for the empty value in Smalltalk. It may be tested by saying: 
null <value >| 

which will reply 1 if the <value> is nil (i.e., the empty value), and 'false' otherwise. 

core! 

will tell you how many words are left. Any reply smaller than 500 is courting disaster. If 
your space gets that low, or (worse) you get a diagnostic window with the message: 

I’ve run out of memory 

t . ... r • - * ’ . ’ 

say: 

expand <number }| 

This will remove <number> of scan lines from the screen and convert them to usable space 
at the rate of 32 words of space per scan line. So: 

expand 100\ 

will increase your workspace by 3200 words. 
addto (classname) (vector )J 

will add a definition whose meaning is <vector> to the class whose name is <classname>. 
Example, after typing: 

addto box df*(<fmove => (SELF redraw ((Zr*x<-:. 
box will know how to move . 

{ (value) (value) ... (value) }\ 

will construct a vector of the values found between the curly brackets. 
stringof (value)\ 

will convert the <value> into an instance of the class string only if <value is an object that 
responds to the message print. 


base8 (integer )| 
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will construct an instance of class string containing the octal representation (unsigned) of 
<integer>. J 


eq (value) (value)l 


compares two Smalltalk pointers. 


Keyboard Keys 


(return) 


moves following text to a new line when typing in. Will otherwise be ignored. 


<bs> 


removes any previous character (including <return>). 

Reading the Keyboard 
kbd 

will wait until a character has been typed and then reply with the numeric code of the 

character which was typed after being passed through a table which assigns (basically^ 
standard codes to the character. 

To receive an uninterpreted version of a character, use: 

TTY 

which will wait for a character to be typed and then reply with an uninterpreted result. 

Smalltalk will not lose typed characters if no program is listening. Instead they are held in an ordered 

buffer waiting for a program to use TTY or kbd. To find out if there are any characters in the buffer 
use: * 

kbck 

0 - 

which replies ’not-false' if characters have been typed and ’false’ otherwise. A typical use 
would be: 

kbck => (Csr*char «- kbd) 

which will only use kbd if there is already a character waiting, and will then save the new 
character in char . 

o 

read 

will gather up a vector of Smalltalk code. It first sends a prompt to the displays 
Everything you type until a i will then be made into a vector which is sent back. 

read of (text) 

is the same as read except that the characters are found in <text> rather than taken fron* 
the keyboard. 


BASIC SMALLTALK SYSTEM CLASSES AND UTILITIES 


Page 79 


*v! 

repeatedly evaluates the vector (cr read eval print); will, in effect, give you another level 
of Smalltalk evaluation. 

to eu (repeat (cr. read eval print))\ 

Over and over, it will do a carriage return, put out a prompt character £&, wait for input 
terminated by a !, send the resulting vector the message eval to get Smalltalk to execute the 
vector , and, finally, give the result of evaluation the message print in order to show the reply 
back to the user. The loop is infinite but: 

done\ or <ctrl>D 

will terminate it. Here is a fancier version which will tell you the current level of 
evaluation: 

<3* level + l\ 
to ev 

(Gr*level level + 1 . 

repeat (cr. (3*level print . sp. level print, sp. read eval print) 

(3*level + level - 1.) i 

Notice that if the last token in the message is a period, then the sequence is not unlike 

(3* a read of a is (.) 

(3* a <- a eval ! a evaluates to nil. 

a printi nil prints as nothing 

< shift > <esc> 

creates a subwindow in the dialog window. Allows Smalltalk evaluation as in the dialog 
window. (In effect, evaluates ev in the subwindow). To return to main window, type 

done! or <ctrl>D 

Subwindows can be nested as long as there is space to create a window with height greater 
than the font height. When a subwindow is created, reading characters is suspended in the 
main window; a return to the main window returns you to the precise place you left off, for 
example, in the middle of typing some expression. 

<ctrl> ( 

does an evaluation of the next expression at the time the keyboard input is read. This gives 
you an opportunity to perform a computation and have the result be used in the main 
expression being typed. 

Transferring Messages 

apply (name) 

will send the current message (the one which was sent to the context we are currently in) to 
the object which has name <name>. For example, suppose ’we’ are called ’bogus’ and have a 
number of things we can do. Somebody sends us the message: 
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bogus $q 100+50\ 
and we have a line: 

<fsq => (apply square) 

then square will be applied to the remainder of our message 100+50 so that it can pick up- 
the value 150 and draw the square with sides 150 units long. 

apply <name> to (vector) 

gets the object which has name <name> and sends it the message <vector>. Example: 
apply square to ( &*(150)1 

9 

will draw the square with sides 150 units long. The important thing here, of course, is that- 
we can compute a message and then send it to Smalltalk. 

apply (name) in (value) 

will send the current message to the object which has name <name> using dictionaries whose 
vector starts with context <value>. For example, if you would like to evaluate the messages 
using only "top level" names (ignoring the dynamic environment), then try: 

apply mumble in GLOBl 

apply (name) to (vector) in (value) 

is the fullblown apply . 

evapply 

has exactly the same meaning as apply except that it expects a (messaged of some kind to 
be evaluated rather than a <name>. Example: 

evapply (a<b => ('abode f g'this is vector)) to <3*(length)\ 

will reply with the length of either the string 'abodefg' t or the vector ^&*(this is vector 
depending on the values of a and b. 

The optional formats for evapply are the same as for apply as described above. 

Display Utilities 
disp 

is the local name of any dialog window. It is an instance of the class dispframe. ^Vhen th®~ 
mouse activates the window, disp may be used to send messages to the window or to find out- 

things about it. 
disp's frmx 8 

will tell you the x position (upper left corner) of the frame. 


indisp (value) (message) 1 
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will temporarily redefine disp to be <value> and evaluate the message in this new context. 
This is usually used when the message contains print or read routines which assume that 
they will be using a dispframe named disp. The routine is defined as 

t 

to indisp disp 
(&*disp 
IT § eval) ! 


*P 


will print a space character. 


will print a carriage return. 


-dsoff 


turns off the display and speeds up Smalltalk by a factor of 2. 


dson 


turns the display on again. 


redo < integer> 


where <integer> is the number of transactions (images of the Interim Dynabook) back from 
where you are, will re-evaluate the message at transaction <integer>. 


Control Utilities 


repeat (...) 


contents of () will be re-evaluated until a done is encountered (or you strike the escape 
key). The escape will be from the innermost loop in which the done is enclosed. 


done 


will cause the loop to be exited. 


done with <value> 


will cause the loop to be exited with the value <value>. 


again 


will restart the innermost loop in which the again resides. 
for <atom> <- <number 1 > to <number2> by (number3> do () 


an iteration control feature—will re-evaluate contents of ( ) until the value of the index 
<atom>, starting at <numberl> and stepped by <number3> each time, exceeds <number2>. 


if (value) then <messagel> else <message2> 
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if the value of <value> is 'not-false', then evaluate <messagel> and do not evaluate 
<message2>. Otherwise, evaluate <message2>, ignoring <messagel>. 

do <integer> (...) 

the contents of () will be re-executed <integer> times* 

Mouse Utilities 
mx 

replies with the horizontal position of the mouse. 0 is at the left margin, 512 is the right 
margin. 

my 

replies with the vertical position of the mouse. 0 is at the top of the screen, 808 is at the* 
absolute bottom, 512 at the top and 680 at the bottom of the original dialog window. 

mp 

replies with an instance of class point such that mx = mp x, my = mp y. 
button <numeric value between 0 and 7> 

« A 

tests the mouse buttons singly and in combination. 


button 0 
button 1 
button 2 
button 3 
button 4 
button 5 
button 6 
button 7 


'not-false' if no buttons are on 

'not-false' if middle button is on (top is button nearest wire) 

'not-false' if bottom button is on 

'not-false' if bottom and middle are on 

'not-false' if top button is on 

'not-false' if top and middle button are on 

'not-false' if top and middle are on 

'not-false' if all the buttons are on 


mem 

mem loads integers from and stores them into real core. The important locations are 


clock 

Read the clock 
Set the clock to zero 


mem 0430 
mem 0430 + 0 


mouse 

mem 0424 
mem 0425 
mem 0424 + 0 
mem 0425 «- 0 


Read mouse x 
Read mouse y 
Reset mouse x 
Reset mouse y 
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cursor 


mem 0431 
for i + 1 to 16 


for i «- 1 to 16 (mem 0430 + i) are the cursor bits 

(mem 0430 + i + shape[i] J 


mem 0105 
mem 0105 0 

mem 0426 +• x. mem 0427 «- y. 


Put new bits into cursor from vector named shape 
Connections between mouse and cursor 
Disconnect cursor from mouse 
Move the cursor 


interrupt character ° 

mem 0107 0177 Make DEL the interrupt character (instead of ESC) 

display control block 


mem 0420 


Get pointer to display control block 
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keyboard, keyset, and mouse inputs 

Reads the first of 4 keyboard input words 
Reads the word with mouse and keyset bits. 


mem 0177034 
mem 0177030 


r 
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Chapter V. EXAMPLE SMALLTALK CLASS DEFINITIONS 

This chapter provides some examples of the use of varinnc c m!1 in,u u • 

Included are samples of programming techniques as well n “" talk ba ’ lc system classes and utilities. 

definitions. The example, correspond to thfbasic cllsses rn' 10 " °' ”° W ’ «■— 

in a "fry i, out- style with suggestions on problem, ^ “* 


Arithmetic 

Example: Figuring the Amortization of Loans 

The problem we chose to demonstrate the use of float U .. , . 

payments. The main routine payment requests values for am0rtlzatl0n ° f a loan ln monthly 

years to pay off the loan and th* „ , Q f Values for the loan principal, loan interest, number of 

computation: ’ ber ° f pa ^ ments per W*- It then carries out the following 


Let 


Let 


rate = interest rate/ (100 * number of payments per year). 

increase = (1 + rate) raised to the power (number of years to pay off the loan 

* number of payments per year). 


Then each 


monthly payment = (amount of the loan * rate * increase ) / (increase - 1). 


The 


total amount paid over the period = 

(number of years to pay off the loan * number of payments per year) * monthly payment. 
To report the results of the calculations, we need a reporting routine where we might say. 

report 'Interest Rate as a Percentage is 9 rate | 
and expect to see 

Interest Rate as a Percentage is 54 0 

The Smalltalk definition is 

to report 
C or 

K * Print a carriage return. 

- . * - Print the textual message in the dispframe. 

^ ^ print J m Print the value received in the dispframe. 


Next we need to be able to receive the values from the keyboard for the parameters- numher of 
rate, etc. We can use the Smalltalk utility read. ameters. number of yearv 

read will gather up a vector of Smalltalk tokens. It first sends a prompt Q, to the displav p„ or „,v 
saying:^ ^ * ! WU1 ^ ™ de *• »»t back. For 

«- read* 
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and then typing: 

do 4 f© go 100 turn 90)1 

*rill associate the literal vector (do 4 f© go 100 turn 90)) with the name a. If we say: 

a! 

the following will be the reply: 

(do 4 f© go 100 turn 90)) 

If you send the message eval to a, Smalltalk will evaluate its contents: 
a evall 

and a square will be drawn. To select the second element of the vector a: 

a[27! 

4 

To select the fourth element of the third element: 

a[3][4]l 

turn 

Vectors have many capabilities. To see more, take a look at the definition of vector in Chapter IV. 

read of <text> is the same as read except that the characters are found in <text> rather than taken 
from the keyboard. To help get values from the keyboard, you might define: 

to demand nm 
(Gr*nm «- o. 

(<fas =» (dispel) nm print) 

It nm <- read eval) i 

Try it with: 

demand spd as f I want a new speed * | 

I want a new speed £&367i 

Then type: 

spd! 

367 

or, without a specific message: 

demand angle\ 
angle Q>591 

anglel 

59 

We will also need a method for converting the floating point numbers to nearest whole dollar 
notation. We can send the message $ to members of the class float and receive the value rounded to 
the nearest dollar. 
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i \ ■ 

* % * 

addto float & (<f $ =» (t 0.0 + (0 + (0.5 + SELF) * 100) / 100))\ 

The class float can now take a floating point number and round to thfe 
nearest dollar. 

Now for the definition of payment, a method for computing the total amount of dollars paid on a loan 
at the end of the load period. 


The Definition of the Class Payment 

to payment principal interest period 

payments rate increase total Request four values 

(demand principal as 'Amount of the Loan in decimal d — d.dd \ 
demand interest as 'Interest Rate as a percentage 9 . 
demand period as 'Number of Years to Pay Off the Loan 9 . 
demand payments as f Number of Payments per Year \ 

Compute the rate, adding 

rate *~(0.0 + interest) / 100 * payments . o.o to guarantee floating 

point number. 

^ Compute the increase. 

increase <- (1.0 + rate) ipow (period * payments). 

Compute the total amount 
paid over the period to the 
nearest dollar. 

amount +■ ((principal * rate * increase) / (increase - i)) $. 

report 'Each Payment is $ ' amount. and report St. 

Compute and tell total 
amount paid over the periodt 

report 'Total Amount Paid is $' (S^total amount * (period * payments). 

Compute and 

report f Total Interest Paid $ ' total - principal. )\ tell total interest paid. 

Sample Interaction 
Run this by typing 
payment ! 

For example, the interaction between the user and payment might look like 

Amount of the Loan in decimal d--d.dd S 30000.00\ 

Interest Rate as a percentage £&d! 

Number of Years to Pay Off the Loan S 30\ 

Number of Payments per Year 

Each Payment is $ 241.0 
Total Amount Paid is $ 86760.0 
Total Interest Paid is $ 56760.0 
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Sequential Dictionaries 

include the classes: vector, string, obset, stream , file. 

Stream. 

Stringof is a method for converting a non-string value to a string. It is included in the basic 
Smalltalk system. 

#• 

to stringof n 

(C&*n + :. 

IT indisp stream ( n print. If disp contents J)l 

Recall we have already defined indisp as 

to indisp disp 
((sr*disp <- 
f o eval)l 

n is a value that we would like converted to a string. The simplest way to do this is to assume that 
the print method for any class is to convert its printable form into a string that it can send to disp 
(the generic name for a text display frame). We use indisp to set up a context in which disp is an 
instance of the class stream. We then send n the message print which should basically do: disp «- 
<string form of n>. Since disp is a stream , it will store the string form as its contents, which we 
return as the proper reply. 

Files. 

The following routines ( xfer , copym, xplot ) are examples of the use of the class file. Each is a useful 
utility to have around. 

(1) xfer 

& 

copies a single file. It is useful mainly for transferring files between disks on an Interim Dynabook 
with two disk drives. For example 

xfer dpi file r valuable f old to dpO file ’valuable ' new\ 

copies a file named ’valuable’ from disk 1 onto a newly created file of the same name on disk 0. To 
obtain this object type 

filin * xfer.’I 


The definition is 
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to xfer f g h i 
( dsoff. 

(f <• :. 

(<to => (<$* g «■ 

repeat (g «- f*s (munch = 512 => (sadr) sadr[l to numchj). 
f *>s nextp = 0 => (done) f set to f's pagen + 1 0). 

The repeat-loop is copying each page of the file. 

g shorten to here) Sets the pagen and bytec for g. 

c g Otherwise say format is incorrect 

disp <- ' proper format is: 

i 

disp + 'xfer <file> to (file )I 

9 

disp <- 'where <file> may be preceded by dpO or dpi 9 ) 
f close . g close . dson .)! Close the two files and turn the display on. 

(2) copym 

copies multiple files from one directory to a directory on the same or on another disk. For example* 
type 

copym dpi to dpO G&*( r filel') '.sr' ! 

This copies ’filer from disk 1 to ’filel.sr’ on disk 0 (the new file). The complete syntax for copym is 

copym (source directory) to (destination directory) (vector of file names) (text )I 

where <text> is the extension for the files on the destination directory. The extension is optional^ 
The definition uses the object xfer . 

to copym sourcedir destdir filenames ext i 
(Ghsourcedir «- 
<(to. 

Gr*destdir «- 
Gr*filenames <- 

(null (Gf^ext + => (G?*ext «- ")) 

for i to filenames length - 1 

(xfer sourcedir file filenames[i] old to destdir file filenames[i] + ext new) ^2 


(3) xplot 

xplot writes a screen image (bitmap) onto a file (86-87 disk pages, takes about one minute) for 
printing on an XGP with the XPLOT program. (Hence this is particularly useful to those readers with 
these facilities.) Either low or high resolution screen images can be plotted, but not both; i.e., only 
the low resolution (picture) part of a screen with both low and high resolution parts will be saved. 

Type 

filin 'xplot.'l 


Turn off the display. 

Fetch the instance of a file. 

The message (to) must appear tor the format to be correct. 
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The following definition requires the class AREA which is also provided below. Note AREA is a 
simple form of class rectangle defined in Chapter II and later in this chapter. The response of an 
instance of AREA to the message makebuff is a string containing the sequence of bits in the 
rectangular area. The file ' xplot ' also includes the objects BLT, PNT, and bringitin. This last one is 
a method for restoring a display screen from a file written by the object xplot. It expects one 
message—the file name. 

to AREA a b c I origin extent 
=> (t 8 eual) 

<( is => (I SIT eval) 

<f makebuff => ((xr*a <- string 2 * extent y * 0* b <- (extent x + 15) / 16. 

0= PNT a. 

BLT c + 2 b 0 extent x 0 extent y 0 mem 60 32 origin x origin y extent y 0. 

IT a) 

isnew =» (0*origin + :. 0 s extent <- :))\ 
to PNT (mem 255 <- :. If mem 255)\ 

to xplot f h i r s w 

(((&f + :) is file *() 

<3ry + file f *() ft false). Make sure f is a file. 

0 =t w + 255 EJ mem (0^h + mew. 272}+ 1 . Number of words per scan line. 

(0 < mem H + 1 => (f next word 2. High resolution — enlargement. 

dr’s + 2 * mem h + 3) Number of scan lines. 
f next word 4. (§*s <- mem h + 3). Low resolution. 

dsoff. The screen area is written out on the file 

0* T AREA point 0 0 point W*16 1. each time in the next loop. 

do 4 (f next word 0). Default values. 

for i to S -word count followed by bits in scan line. 

(f next word - w. f <- r makebuff. 
i°s (0*origin <- point 0 i)). 
f close, dson. )\ 


Move the area down the screen. 
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Dispframe 

(lisp. As explained in Chapter III, disp is the local name of any dialog window. It is, in fact, an 
instance of the class dispframe and is created as 

<§*disp «- dispframe 16 480 415 168 string 520\ 

A Smalltalk window, as demonstrated in Chapter I, owns an instance of a dispframe whose name is 
disp. This particular name must be used because the Smalltalk read method assumes that all 

keyboard interactions will be carried out by displaying the typed characters in an instance of 
dispframe named disp. 

As an example both of using this generic name as well as of using the four display routines ( dclear, 
dcomp , dmoue, and dmovec ), try the following sequence. 

1. Create four new windows on your display screen. 

2. Place them in four quadrants of the screen, enlarging them to fill the area above th* 
original dialog window. 


window 1 | | window 2 | 

I II I 


window 3 | | window 4 | 

I II I 


| original | 

| dialog window | 


3. Place the mouse cursor in window 1 and type ( &*turtl turtle frame displ 

This creates a turtle who lives only in this first window, home for turtl is the center of 
the window. 

4. Repeat the above process: enter each of the remaining three windows and create turtles- 
turt2, turt3 y and turt4. 

5. Now point in the original dialog window and try: 

turtl home erased Note only window 1 is erased. 

for i to 200 (turtl go i turn 89 )| ' Note the turtle draws lines only in its own window* 

turtles frame's (dcomp frmx frmwd frmy frmht )\ 

Complement window 1. 

t 

Try different designs in each of the four windows. Or try 

turt2's frame's (dclear frmx frmwd frmy frmht 13107)1 
turt3's frame's (dclear frmx frmwd frmy frmht 12121)i 
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As examples of using dmove , try making window 4 small and then 
to mover 

(turt4’s frame’s (dmove frmx frmwd frmy frmht (&*frmx*-frmx-5 (3 =t frmy+-frmy-5 :))\ 

do 10 (mover 0] 5 turt4’s window moves toward the bottom left corner, 

replacing any information already displayed in the areas. 

or 


do 10 (mover 1)1 


turfs window moves toward the bottom left corner, 
interacting with any information already displayed in the 
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Point class 


This data type is used to design the class rectangle which can compute areas of intersection between 
two rectangles and create the rectangle that encloses two rectangles. An abbreviated version of the 
class rectangle was introduced at the end of Chapter II section on Paint Brush. To obtain this 
definition of rectangle , type 

filin 'xyfns.'l 


0 s *joe <- rectangle point 100 100 point 150 150\ 

joe has point 120 105 ! 
point 100 100 

joe 

joe 

joe 
joe 

joe 


Rectangle at upper left corner 100,100 and lower right 
corner 250, 250 

That is, ’not false' and therefore tru« 


jim is a rectangle at upper left 140,120 and lower right 
290,290. Reply is intersection of joe and jim, a rectangle at 
upper left 140,120 and lower right 250, 250 (origin is point 
140 120; extent is point 110 130). 


joe include jim\ Creates rectangle around joe and jim. 

joe moveto 200 300\ Upper left corner is moved to 200, 300. 

joe framel Draw a black border around the rectangular area. 

The code for the class rectangle and some useful routines follow. Note two messages ( makebuff and 
loadbuffj used in the definition of AREA as stored on file ' xplot ' could be included as messages 
understood by a rectangle . 


COTnp\ Complements joe's bits. 

clear -l| Clears joe to all black. 

clear 212121 

clear 0525251 Some nice patterns. 

intersect (&*jim *- rectangle point 140 120 point 150 170\ 


EXAMPLE SMALLTALK CLASS DEFINITIONS 


Page 93 


to rectangle abet origin extent 
(<(hasry 

(&*c *- :. 1 torigin c origin extent) 

t o eval) 

<fcomp^> 

(dcomp origin x extent x origin y extent y) 

^Sf clears 

(dclear origin x extent x origin y extent y :) 
intersects 

(CP*c 

Ct/^a origin max c’s origin. 

&b <- (origin + extent) min Cs(origin + extent). 
a — b=> (Itrectangle a b - a) t false) 
include^ 

((&*c :. 

a «- origin min c 1 s origin. 

<&*b +•(origin + extent) max c J s( origin + extent). 

It rectangle a b - a) 

<fmoveto => (<£*origin + :) 

<f frame => 

((&*a «- turtle. 

a penup goto origin turn 90 pendn^s width 4- 2. 
a penup goto origin turn 90 pendn "*s width 2. 
do 2 (a go extent x turn 90 go extent y turn 90)) 
*$is =>(ISIT eval) 

Sprint => 

(<&*rectangle print sp origin print sp extent print) 
paint => (CODE 41) 

isnew =» origin *- & extent *• :)J\ 

to waitnext x 
(&x <- o. 

repeat (x eval => () done) 
repeat (x eval => (done)))\ 

to bug 

(waitnext butlon. Itmp^l 

A demonstration to try often is 

to xydemo <- class a b c 

(C&*a rectangle &*b +■ bug bug - b. 

a comp. 

(&r*c «- rectangle &*b +• bug bug - b. 
c comp. 

(&*b «- a intersect c. 

(b*(b clear 13107)) 

(a include c) frame.)\ 


Is a point inside rectangle? 


Expects bit patterns as a message 


Creates a rectangle that is the intersection of c 
and SELF if they have common area 
else, ’false’. 

Creates rectangle around SELF and c. 


Move origin to a new point. 

Turtles understand how to go to a point as 
well as two numeric coordinates. 


This message was discussed in Chapter II 
section on Paint Brush. 


Stay in this routine until 
x is first ’false’ and then finally 
’not-false’ again. 

Wait to get the mouse point 
when button 1 is pressed. 


Type 


xydemo i 


The result of pointing to different screen locations is a geometric design formed by the interaction of 
black, white, and gray rectangles. 
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Dictionary of Areas and Points 

An Obscure Challenge for the Day: when does this blow up? 

Suppose the screen is divided into a main area that is a rectangle point 30 20 point 100 80; and thfr 
subareas within the main area are 50 wide and 40 high. There are four such subareas. The purpose of 
a dictionary of points on the screen is to be able to designate areas as menu locations or nodes of «: 
tree or whatever, and to be able to recognize, quickly, in which area the mouse is located. 

30,20 


1 I 2 


3 1.4 


-- 130, 100 

Suppose we create a menu that has five menu squares (1, 2, 3, 4, 5) located in subareas 1 and 2. Each 
menu square has length 14 units. Further, suppose the upper left corner of the first square is point 45 
30. 


[1][2][3][4][5] 

I 

I 

I 


I 

I 

I 


Then, we have 

dictionary <- xydic 50 40 in rectangle point 30 20 point 100 80S 

Create the main area and subareas. 

C&*menu <- vector 5! 
for i to 5 do 

(dictionary «- menu[i] «- rectangle point 45+(i-l)*14 30 point 14 14)\ 

Store menu squares 1-5. 

dictionary print\ Print number of items in each 

3 in area 1 subarea followed by the subarea index. 

3 in area 2 
0 in area 3 
0 in area 4 


dictionary map (&*(compel 


Tell all the menu squares to complement. 
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dictionary index point 50 70\ 

3 

dictionary find mp i 

dictionary delete menu[3 J| 
dictionary edit (delete) menu[3 j! 

A file exists on the basic Smalltalk disk that 
filin 'xydic'i 

try out this dictionary method. 


Given a point (50 70), compute in which 
subarea it falls. 

Given a point (mouse point), ask all the 
stored areas if they have the point. 

Return the first one that says yes. 

Delete the third menu square. 

Editing method used by messages delete and 

contains the following definition. Type 


to xydic exp i input p val / all areas bred ncols xsize ysize 
(<findex => (&*P + :• 

tl +((p x - bred *s origin x) / xsize) + ncols * (p y - brect's origin y) / ysize) 

<ffind =* (*3*p ** *. 

brect has p=> (C3*val *- nil . 

areas[SELF index p] map <3* 

(vec[ij has p => (done with (3*val «- vec[i])). 

1tval) 

t false ) 

<fedit => (C&^exp «- vecmod o 2 0 (3*input «- :. 

1 3*val *• (SELF index input frame's( origin + point extent x 0)) 

- C^i «- SELF index input frame's origin . 
for i «- i to SELF index input frame's( origin + point 0 extent y) by ncols 
(for p *- i to i + val (evapply areas[p] to exp)), 
apply all to exp) 


=> (SELF edit (<-) :) 

<fdelete => (SELF edit (delete) :) 
*fmap =» (all map :) 


isnew ^ (& xsize *- C&^ysize <- :. 

(Sabred <- (<finz>(:) rectangle point 0 0 point 512 512). 
&*ncols «- brect 's extent x / xsize. 

Gr*areas vector ncols * bred's extent y / ysize. 
for p to areas length (areas[p] «- obset). 

(sr*all «- obset) 

print =» (for p to areas length (areas[p] length print, sp. 
disp <- ' in area '. p print, cr)))l 
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Turtles 

Try 

(&*turt <- turtle frame dispframe 16 100 16 100 99 .! 

turt home erase.l 

for i to 300 (turt go i turn 89 ).i 

turt's frame's (dcomp frmx frmwd frmy frmht ).! 

The first three statements create a turtle in a 100 by 100 rectangular area in the upper left portion o£ 
the display screen, clear that area to white and draw a spiral using black lines. The last statement 
enters the context of the turtle s display frame in order to use the frame boundary parameters iit 
order to complement the area (white to black, black to white). 

To sketch with characters or text, try 

to draw turt t 

(Ctr*turt turtle. Create a drawing turtle. 

turt home xor turn 90. Painting is different if the ink 

is black or white. 

t •• Fetch the M paint brush" 

repeat (button 4 => (turt penup goto mp pendn «- t) 
button 2 =» (done)))\ 

draw '©'! Paint with "smiley" 

or the text 'hello* 
or the character '•*. 

Designing your own character is another way to design a paint brush! 


draw 'hello 9 1 
draw 97 ! 


Commander Turtle 


Here is a nice way to distribute turtle messages to more than one turtle at a time. The idea is ter 
create a "commander” turtle. Any messages he receives, he sends on to all the members of his troop. 


(tr’joe «- commander 41 

joe go 100\ 

joe turn <number 

joe penupl 

joe pendn\ 

joe home\ 

joe fan\ 

joe's ink <- (integer >\ 
joe's width <- (integer>1 


joe commands a troop of 4 turtles. Each turtle moves to the center (home) 
of the display area. Then joe sends himself the message fan. 

Each member of the troop moves <number> of units. 

Each member of the troop turns <number> of units. 

Each member of the troop picks its pen up. 

Each member of the troop put its pen down. 

Each member of the troop moves to the center of the display area. 

Each member of the troop turns in a unique direction and changes ink color- 
such that member i has ink color i+1. 

Set the ink color of each member to <integer>. 

Set the width of each member to <integer>. 


Try 


(t/ 3 © *- commander 4 ! 
dragon 6| 


Recall the definition of dragon in Chapter II sends messages to ©. Here, 
is no longer a turtle, but a turtle commander. 
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to see four dragon curves draw on the screen. For those curious, we include the class definition. Note 
the use of colored ink assumes a color version of Smalltalk. The dispframe color frame is defined as 

• 1 

&*colorframe dispframe 0 256 0 128 n . 
to commander a b / turts 

« go =» ((&*a + :. turts map (&*(go a). ItSELF) 

<f turn => ((S^a :. turts map (S^(turn a). It SELF J 

<f penup (turts map &*( penupj. tSELF) 

<f pendn => (turts map &*(pendn). ItSELF) 

<f home => (turts map (^(home ). SELF pendn. ItSELF J 
<f fan => (for a to turts length do 

(turts[a] turn(a - 1) * 360 / turts length. 
turts[a J’s ink <- a + 1). 

itself; 

’s => (<fink =>(<(+-. (sr*a <- 

turts map (vec[i]'s ink *- a)) 

<fwidth. <(<-, Gr*a «- 
turts map (zr*(’s width a).) 

isnew => ((tr'a *- :. 

(tr*turts +- vector a. 

for b to a (turts[b] *- turtle frame colorframe) 

SELF home fan))\ 
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v 

Control Classes for Repetition and Alternate Paths 
repeat, do, for, if 

The usual methods for repeatedly evaluating an expression use one of three routines already 
presented: repeat, for , and do . The method of for can be defined as 

to for step stop var start exp 

(d/^var <- o. 

C tf^start «- (*$ «- =» (:) 1) 

(&*stop «- (<f to => (:) start) 

Gr’step «- (<f by z>(:) 1) 

<9do. do is optional 

( &*exp + o. 

var *- start . 

repeat ((step > 0 ^ (var eval > stop => (done)) 
var eval < stop =» (done)) 
exp eval . var 4- (var eval) + step .))i 

The form of a Smalltalk conditional statement, if-clause => (then-clause) else-clause , has also already: 
been shown in many contexts. The Algol "if...then...else..." syntax can be achieved by defining if a 
follows. 

to if exp 

(((.&*exp 4r ;) => (<( then => (<&*exp <- *$else ^ (o. exp) exp) 

error (sr*(no then )) 
then => ( o. <felse => (&exp <- :) false) 
error (sr’fno then)) i 

For example, 

(&*val 4- if a y 10 then 4 else (if a ( 10 then (-4) else 0)\ 
val will be 4, -4, or 0, depending on the value of a. 

again 

is a Smalltalk method for redoing the most recent repeat , do or for loops. It is one way of iterating 
on a given condition, while defaulting to end the loop. For example, suppose we send the message 

(&*set 4- makelist mary or joe or henryi 

expecting to form a list of alternatives terminating when no further alternatives exist. 

o 

to makelist list 

(&*list 4- obset. 

repeat (list 4- §. Obsets form unions. 

<for => (again) done) Continue if see word M or". 

It list)l Reply with the list. 

while 

A while clause lets us send messages of the form 
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Qr*str +■ streami 

while (kbck and (C&'t *■ kbd) * 13)) 
do (str +■ t)l 


Thai is, store keyboard strokes into the stream str as long as there is a character in the input buffer 

and the character typed is not a carriage return (whose Ascii code representation is 13). This 
definition is not part of the basic Smalltalk system. 


o 

o. 


to while Cond Exp 
(C^Cond «- 
<f do. 

<S*Exp g. 

repeat (apply Boolean to Cond => (Exp eval) done)) f 


do is optional 


to Boolean result 

((^result :. 

repeat (<for => (result => (o) <3*result <- :) 

<fand => (result => ((.^result :) a) 


ft result ))| 


Right side of the and part will not 
be evaluated if left part is 'false*. 


Zahn's Device 


The following is an implemention of a simple "until-like" structure, very much like Zahn’s original 
suggestion, which allows multiple exits from a loop [Zahn, A control statement for natural top-down 
structured programming, Symposium on Prog . Languages , Paris, 197 4]. The intent was to be able to 
write in Smalltalk a minimal, event-driven keyboard/display routine like this one: 

until CR or DEL do 
(C3t <- kbd. 
disp t. 
t = 13 => (CR) 
t = 127 => (DEL)) 

case 

CR : (disp <- 'normal exit/) 

DEL : (disp <- 'punt exit/)\ 

implement this control structure in Smalltalk, a class of objects called events was defined such 
3tibat each instance, when it is awakened, executes a piece of code and breaks out from a loop. 

to until tempatom statement 

(repeat (C3tempatom <- 8. 

tempatom <- event. 

<( or (again) done) 

(<fdo => ((3 s statement <- a)) 

(<fcase => (repeat ((3*tempatom §. 

tempatom eval is event => 

(<(:. tempatom eval newcode 8.^ 
done ))) 

repeat (statement eval ))| 
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to event / mycode 

(isnew => ((&*mycode vector 3 . 

mycode [2] <- &*done.) 

<f newcode => (my code [1] + :.) 

<( is => (ISIT eval) 
mycode eval)\ 

Event is an example of constructing a vector of code that will be evaluated at some later time. When 
an instance of event receives the message newcode , it stores away some message as the first objects in 
the vector mycode. The last object is the message done which, when mycode is evaluated, forces a 
break out of the repeat loop in until. Hence, if we run the above example of using until , we have 

Pick up the word CR and store in tempatom. 

CR is made an instance of the class event. 

We see or, so 

go back, pick up DEL, and make it an instance of event. 

Now we are done. 

We see the word do. 

Statement is the vector (Cv*t«-kbd. ... =>(DEL). 

We see the word case. 

We see the word CR again and store the name in tempatom. 

The value of tempatom is Cr, an event. 

We see colon, :, so we 

send the event CR the message newcode and pick up the code 
disp «- 'normal exit'. Do this again: pick up DEL and send it the 
message newcode, picking up code disp ♦* punt exit . 

There are no more case statement words so 
repeatedly evaluate the vector (dA*t*-kbd...), an expression 
that will continually request keyboard input until that input is 
a carriage return or delete character in which case the 
corresponding event will be run in order to evaluate mycode. 

Evaluating mycode results in execution of a done message, hence 
terminating the repeat loop. 

Case Statement 

A method for simulating case statements in Smalltalk is to index into a vector of vectors or atoms 
that can be evaluated. The general message form is 

<vector) [ <integer> ] eval\ 

Such a case statement can be seen in the routine used to realize a display window move, delete^ 
create or grow depending on which window corner has the mouse cursor. The routine returns false 
if the cursor is not in a corner. Note, in the statements below, the index = 1 + corner selected. 


(^tempatom o. 
tempatom event . 

<(or 

again) 

done 

<fdo 

dr *statement o 

<fcase 

repeat ((tr*tempatom*'o. 
tempatom eval is event 
(<(:. 

tempatom eval newcode o) 


done) 

repeat (statement eval) 
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to frmedit disp 

((&*disp *- :. 

{&*((^false) index *1, no corner selected 

(disp fclear, waitncxt (button). index=2 t move 

disp frame white, disp moveto mx my. 
disp display) 

(l=sched vec length =>() disp hide. index=3, delete 

sched delete task, done.) 

(contents copy) index=4, create 

(disp fclear, waitnext (button). index=5, grow 

disp frame white, disp grow mx my. 
disp display) ) 

[ 1 + disp corner mx my] eval )l index evaluation 

For instance, if the mouse is in upper right hand corner of the display window, then 
disp corner mx my = 2 

Add 1 and we get and index of 3, picking out the code to delete the current window. 


ir 
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Scheduling Methods: sched and window 


Recall that Smalltalk has a USER task which is continually evaluated. (See Chapter III section^ 
entitled The User Task ). 

One method useful for scheduling the display windows we have been working with is to replace the 
USER task with a request to send the message run to each item stored in an obset. We have chosen 
to name this obset sched. 


or 


PUT USER <&*( sched map <^(<^task vec[ij. 

apply task to (S^(run) in GLOB))\ 

PUT USER (&*DO &*( sched map &*( apply each to (ir*(run) in GLOB))\ 


Suppose sched contains three items, each one an instance of the class window (we will examine the- 
code for this class in a bit). Then, in sequence, the temporary variable task is set to the value o£ 
vec[l], vec[2], and vec[3] (the local bindings in sched for the three instances of window'). Each: 
value of task is sent the message run. This is a round robin method for scheduling objects, givings 
each object the opportunity to run if it so chooses. Each object stored in sched must be able toe 
receive the message run. 


A window that can be scheduled has two instance variables, an instance of the dispframe in which wfr 
expect to read and print any keyboard i/o, and an instance of a class that knows about and can edit 
the objects living in the dispframe. We will present three examples of this second kind of class: at 
Smalltalk dialog window ( stwindow ), a window for invoking the Smalltalk class editor ( edwindow ), 
and a picturewindow (picturewindow). 


Window. The class window looks like 

(tP^w window dispframe 10 100 10 50 string 50 (editor )! 

Create a window in which the contents is defined as some editor. 

W run! This is the message we expect to send as part of the USER task. 

W contents (message )! window contents is <editor>. Send this <editor> the message <message> 


to window / disp contents 

(<frun => (disp hasmouse => 

(contents enter. 

repeat (disp hasmouse => (kbck => (contents kbd) 

0 ( mouse 7 ( => (contents bug) 
contents running) 

done ) 
contents exit)) 

contents => fit apply contents) 

<(is => (ISIT eval) 

<f's => (It o eval) 

isnew => ((&*disp <- :. Ctr* contents <- :. contents new))\ 


The value of disp does not have to be a dispframe, but it does have to respond to the message ~ 
hasmouse. Notice that the main method for sending a message to the object whose name is contents is 
to send it indirectly through the class window. When a window sees the message word contents it 
gives the object contents permission to examine the message. For example, if contents is an instance 
of stwindow , defined next, and we want to send that instance the message running , we could do so- 
indirectly by typing 
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w contents running ! 

where w is an instance of window and the value of w contents is an instance of stwindow. 

* 

Smalltalk Dialog Window. 

Now for some examples of <editor>, each of which must understand the messages sent to it by 
window : enter, running, kbd, bug, exit, new. 

The particular method used to define stwindow says that the final action in creating an instance of 
the class is to return an instance of window. Hence it is not possible to send messages directly to 
instances of stwindow ; it is only possible to send messages indirectly through the class window. 

ached &*st <- stwindow dispframe 10 100 10 50 string 50\ 

Create a Smalltalk window where the display area is initially at 10,10 with 
width 100 and height 50. Note that st is an instance of window, not 
stwindow. The value of st contents is the desired instance of stwindow. 

St contents enterl Show the dispframe 

st contents runningl Blink the prompter. 

at contents hbd\ Read an expression from keyboard. 

St contents bug\ See where the mouse is pointing and take any appropriate actions. 

St contents new\ Print a message in the window. 

St contents copyi Create another stwindow in st's own image, 

to stwindow 

(<f enter ^ (disp display) 

running => (disp <- 20. do 10 (). disp *- 8) 

<(kbd => (cr. read eval print sp) 

<fbug => (frmedit disp) 

<fexit => () 

<If copy => ( SChed<-Stwindow new frame J newframe creates dispframe in the upper left corner 

of the display screen. 

<fnew =» (disp <- 'A SMALLTALK window *) 

<is ^ (ISIT eval) 

=» (If § eval) 

isnew =» (It window (:) SELFJ 


blink the prompt character in the window 


frmedit was defined previously. 
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to new frame f 

(C<- dispframe 16 256 16 112 string 1000 font disp's (font)* 
f *s ((&*winht «- frmht). 

tf)\ 


Edit Window. The content of this window is a list of names of defined classes. Pointing at one of 
the names in the window invokes the Smalltalk class editor for the class. This is a useful utility for 
avoiding typing edit <name>\ The same method for defining the window is used here as was used in 
stwindow: the reply from isnew is an instance of window ; messages to edwindow must be sent 
indirectly through window. 


sched &*edw «- edwindow! 


edw is an instance of window; its instance variable contents is an 
instance of edwindow. The window’s dispframe is newframe. 


edw contents enter! 


Display the dispframe. 


edw contents running ! 


Blink a thick-lined square image (Ascii 4}. 


edw contents kbd\ 


Create a subwindow and call on ev. I.e., repeat (cr read eval print 
sp). 


edw contents bug! 


edw contents show! 


Check the four corners (copy does not work)...if mouse is not in 
corners find which name the mouse is pointing at and call on the 
editor for the appropriate class. 

Print the token ’edit:’ followed by name stored in the vector. 


edw contents exit! Do nothing special. 

edw contents newi Display the dispframe. 

to edwindow a i / setname 

(<fenter => (disp display) 

<f running => (disp <- 4. do 10 (). disp 8) 

<fkbd => (disp sub &*(ev)) 

<fbug => (frmedit disp =» () 

<r disp mfindt mx my [i ]■ 
i<2 =* (). 

C^a «- (setname eval)[i-1 ]. 

C&*i «- a eval . 
edit i . 

a - setname r> (SELF show)) 

<(show => (disp clear, disp + 9 Print the token ’edit:’ followed by the names in the 

edit: 9 . atom a. 

C^a <r setname eval . 

for i to a length - 1 (sp. a[i] print)) 


The word ’’edit:” adds a token to the count, value of 
a is the class name. 

i is now a pointer to the class to be edited. 
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<fexit =» () 

<fnew =» (disp frame black. SELF show.) 
<fis =» (ISIT eval) 

=> (t o eval) 
isnew => (Cw*setname <- o. 

o 

If window newframe SELF))\ 


Picture Window. This simple picture editor is an example of the use of a turtle "living” in a 
dispframe. It makes use of the class point as well as obset and apply. 

sched *- (&*pw «- picturewindow 16 100 16 100 string 50! 



Creates a window for sketching at location 16,16. window is 100 
wide, 100 high. Again, pw is an instance of window, pw contents is 
an instance of picturewindow. 

pw contents enter l 

Show display frame and sketch. 

pw contents runningl 

Do nothing special. 

pw contents kbd\ 

Read the keyboard but do not evaluate expression. 

pw contents bugl 

Check four corners; otherwise, draw a line to the mouse point. If 
middle mouse button pressed, pick turtle pen up. 

pw contents exiti 

Do nothing special. 

pw contents newi 

Erase the display area. 

pw contents sketchl 

Draw lines between the points in the sketch unless point preceded 
by penup command. 

pw contents copyl 

copy has a new meaning: erase the sketch. 


EXAMPLE SMALLTALK CLASS DEFINITIONS 


Page 106 


to picturewindow var / df © pics 

(Renter => (df display. SELF sketch ) 

<( running ) 

<(kbd =>fcr read) 

<fbug => (frmedit df^(SELF sketch) 

(pics vec length = 0 ^ (pics «- (§*penup. © penup) 

When first start pick pen up, or if 

button 1 => (pics add (3*penup. © penup) 

© pendn) middle button pressed, pen up. 

pics <- 0 s var <-(mp - (point df frmx df frmy)). 

Find mouse point and store point relative U* 
* ' ' the display window. 

© goto Var) Draw the line. 

*fexit r> () 

Cfnew => f© erase) 

sketch =» (pics vec length - 0^>(). Nothing to sketch. Should pen be up? 

pics map dr* ((sr'penup - vec[i]z>(W penup) 

© goto vec[i] pendn)) Draw line to the point. 

<(copy (df clear . (topics 4- obset) Delete sketch points. 

<( ’s=> f o eval) 

<fis => (ISIT eval) 

isnew => (C&*df <-(apply dispframe)• Instance of dispframe created by receiving 

values from picturewindow’s message. 

dr*© +■ turtle frame df • Turtle lives in this new frame. 

Gr’pics 4- obset. Sketch points stored in an obset. 

twindow df SELF) Create the window. 
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Loopless Scheduling * 

The following is an attempt to select some conventions for scheduling classes, while minimizing, if not 
-eliminating, the use of explicit repeat or for loops. We define startup , a method for waking up each 
class instance and giving each a chance to grab control and remain in control until some quit 
condition becomes true. 

to startup task 
(&task «- 

(<fin => (&>GLOB :)) 
task startif => (task firsttime . 

repeat(task quitif =» (done) 
task eachtime) 

Ifaasfc lasttime) 

It false )i 

"We will still use sched to hold the scheduled objects. The USER task is 

PUT USER C&^DO &*(sched map (&*(startup each in GLOB))\ 

A task may choose to start, for example, if mouse cursor is in particular location or mouse buttons are 
pressed or objects are waiting in a queue. The first time the task runs it may want to clean up some 
graphic information or set a timer or take first object out of the queue. A task may decide to quit if 
some clock timer has run out or the mouse is no longer in the correct position. Each time a task 
runs, it takes whatever actions are appropriate; for example, the window might check to see if a 
mouse button is pressed and the mouse cursor is in one of the corners. Hence, by convention, a 
scheduled object must respond to startif , firsttime f quitif , eachtime 1 lasttime. So that no errors occur 
if an object does not respond to these messages, we initialize things with 

( ir*startif «- (sr*firsttime «- (&*eachtime Ghlasttime <- nil . 
to quitif (t false )\ 

The class window which acted as a task master before is no longer needed. Methods for blinking the 
prompter and waiting for an expression to evaluate true (waitnext ) can be (re)defined. The class 
prompt simply sets a timer, displays the prompt character and does nothing until the timer runs out 
at which time it backspaces to erase the image. When prompt is the only scheduled object, we see a 
blinking prompt character. 

to prompt I t 

(<ffirsttime => (disp <- 20) 
quitif => (tt < mem 280) 
lasttime => (disp <- 8) 
isnew => (C&*t *• 10 + mem 280))l 

The next object, waitnext , also ignores some of the messages. 

to waitnext / notoffyet expr 

(<fquitif z> (notoffyet => (texpr eval is false) It expr eval) 
isnew => ((S^expr o. ( ^notoffyet «- true . startup SELF . 

(^notoffyet ^ false, startup SELF ))! 

The object frmedit is almost the same. The only exception is index 4 which originally was (contents 
copy) but now must be the actions previously taken by (contents copy). In the case of stwindow f this 
should be (sched «- stwindow newframe). But edwindow wants to do nothing and picturewindow 


Show Interim Dynabook image, 
mem 280 is the clock. 

Print backspace to erase image. 
Set timer. 



Define context for evaluation. 

Task starts, send firsttime. 

Keep sending message eachtime 
until quitif returns 'not-false' value. 
Finally send message lasttime. 
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wants to say (disp clear. Copies «- obset). Alternatives are to write separate frmedit routines or to 
send the code as a message to be evaluated at a later time. We will use this last idea. 

to frmedit disp expr 
(<3*disp «■ (thexpr + nil. Gr*expr *- 8 . 

<§*( (t false) 

(disp fclear, waitnext (button). 9 

disp frame white, disp moveto mx my. disp display) 

(l=sched vec length ) disp hide, sched delete task, done.) 

(expr eval) 

(disp fclear, waitnext (button), 
disp frame white, disp growto mx my. disp display)) 

[ t + disp corner mx my] eval )\ 

The Smalltalk dialog window is now defined as 

to stwindow / disp 
(<fstartif => (tdisp hasmouse) 

<ffirsttime => (disp display) 

<fquitif => (tdisp hasmouse is false) * 

<$eachtime => (kbek -> (cr read eval print sp) 

0 < mouse 7 => (frmedit disp (sched <- stwindow new frame)) 

startup prompt) 

<fis => (ISIT eval) 

(to eval) . B 

isnew => ((Zr’disp <- disp clear, disp <- 'SMALLTALK at your service ))\ 

edwindow and picturewindow can be defined as 

to edwindow a i / setname disp 
(<fstartif => (tdisp hasmouse) 
firsttime => (disp display) 

<fquitif z> (tdisp hasmouse is false) 
eachtime => (kbek => (disp sub (s^fev)) 

0 ( mouse 7 => 

(frmedit disp ()=>() 

(&*i <- disp mfindt mx my [t ]. 
i<2 => (). 

C g^a <- (setname eval)[i-t]. 

<^i <- a eval. 
edit i. 

a = setname => (SELF show)) 

Startup prompt) The prompt character is different. 

<(show => (disp clear, disp <- 'edit: * 

C&^a *- setname eval. 

for i to a length - 1 (sp. a[i] print)) 

<f is => (ISIT eval) 

(to eval) 

isnew => (C&*setname o. 

C ir'disp 4- disp frame 16 256 16 112 string 1000. 

disp clear. SELF show))i 
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to picturewindow / df © pics 
(<fstartif => fl \df hasmouse) 

<f firsttime => (df display. SELF sketch) 

<fquitif => (tdf hasmouse is false) 
eachtime => (kbck => (cr read) 

0 < mouse 7 => 

(frmedit df (df clear. <&*pics<-obset) => (SELF sketch) 
(pics vec length = 0 => (pics <- <sr*penup. © penup) 

1 - mouse 7 =» (pics add (&*penup. © penup) 

© pendn) 

pics (sr*var <-(mp - (point df frmx df frmy)). 

© goto uar)) 

<fsketch => (pics vec length = 0^(). 

pics map d? 3 ((xr 3 penup = vec[i]z >(© penup) 

© goto vec[i] pendn)) 

<f is => (ISIT eval) 

<ps=> fit o eval) 

isnew => ((sr*df *• apply dispframe. 

C^ 3 © «- turtle frame df . 
topics «- obset. 

© erase » df display))\ 


£ 


Messages can now be sent directly to instances of stwindow, edwindow , and picturewindow. 
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A Sample Text Editor 

The purpose of this example is to demonstrate text management within a display frame (dispframe)— 
how to 

« 

i. display text 

ii. use mouse for pointing, keyboard for editing (or alternatively, set up an editing menu such aa 
in the Smalltalk editor) 

iii. manipulate the text 

Insert, delete, replace and append text can be accomplished with insert only: 

action interpretation 

point someplace and start typing insert, append 

point to subset of the text and 

start typing characters replace 

point to subset and type 'del* delete 

Note: when typing, will handle backspace (bs); If (<doit>) as character, not as terminator; and delete^ 
(del) key. 

A paragraph has some area on the display screen, is framed, and does not scroll unless it reaches th©r 
bottom of the screen. 

Call it pdisp. 
pdisp is a dispframe. 

The window height of pdisp ( winht ) should extend from the upper left corner 
to the bottom of the display screen in order to avoid scrolling. 

The frame height of pdisp ( frmht ) should indicate bottom of last line of text. 

ontheight <-14. 

& pdisp +■ dispframe 0 10 fontheight string 0 noframe. 

A paragraph contains some text. 

Call it buf. 
buf is a string. 

There is a pointer to the last character in buf. 

Call it last, 
last is a number. 

These correspond to instance variables in a dispframe but paragraph wants 

local manipulative control of the textual information. / _ 

We can give buf a textual value when we create the instance. 

C &*buf +■ (<fof => (:) string 0). 

( ir’last «- buf length.i 

A paragraph contains pointers into a subset of the text. 

Call the points pi and p2. 

pi and p2 are each instances of the class point. 

They indicate the beginning and ending of a selected subset of text. 

These points correspond to indices into the text string 
Call the indices loci and loc2. 
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(&*locl +(fr*loc2*-buf length.i 

*A paragraph has the selected subset of text complemented to provide graphic feedback. 

Assume there is a class, dfcomp , owned by the paragraph class to perform the 
complementation from pi to p2 within the dispframe. 

dfcomp pdisp pi p2\ 

A paragraph’s text can be manipulated. 

Cl) Show correct text tell pdisp to show buff 1 to last] 

C2) Select an area of text start with mouse button press in order to 

select space between characters = pi; 
hold down button to pick up characters 
dynamically and then release the button. The 
final mouse position = p2 

(3) Replace selected text by new text start typing 

if ’del' and loci not same as loc2, then 
delete selected text 

otherwise delete selected text and replace 
with keyboard input 
otherwise, keyboard input replaces 

selected text. i 

<4) Might want to give the paragraph a name and store/retrieve it on a disk file 

A solution to the text complement problem for a dispframe 

Assume have two points indicating beginning and ending of line of text 

beginning point 
ending point 
dispframe 

If pi and p2 are the same point, complement nothing 

If pi is lower in the dispframe than is p2, complement nothing or reevaluate 

the routine, changing roles of pi and p2 

If pi is higher in the dispframe than 
is p2: 

pl complement from pi to p2 requires possibly 

-- three parts 

(1) complement first line starting at pi 

-p2 (2) complement full middle lines 

(3) complement last line up to p2 

Since the last line may be the first line pi-p2, 

(3) is solved by dcomp pi x (p2 x - pi x] p2 y fontheight . 

(1) is needed if pi y < p2 y; it is solved by 

dcomp pi x (df (frmx + frmwd] - pi x] pi y fontheight . 
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If we then redefine pi as 

&pl <- point df frmx pi y + fontheight. 

we set pi at the beginning of the second line. 

If now pi and P 2 are at same height and therefore same line, (3) solves it. 
Otherwise, (2) is needed to fill middle lines by 

dcomp pi x (df frmwd) pi y (p2 y - pi y)‘ 

Putting this together we have 

to dfcomp df pi p2 
(<§*df «- :. 
d/’pl *• :. 

fpl 2 y*< p2 y => (dcomp pi x (df (frmx + frmwd) - pi x) pi y fontheight. 

<&*pl *■ point df frmx pi y + fontheight. 

pi y < p2 y => (dcomp pi x (df frmwd) pi y (p2 y - pi y)-))J 

pi y > p2 y => () . . „ 

dcomp pi x (p2 x - pi x) p2 y fontheight.)• 

A solution for finding out where you are pointing with the mouse 
This routine returns a vector such that 


first item 
second item 
third item 
fourth 


index of character after which you will insert 
left x of character 
width of character 
top y of character 


the dispframe the message mfindc gives most of the desired mfoimation. 

df mfindc mx my. 

<» i. now . vector with the correct intorjo.tionwHl, «.e 

’cStur a £ U^.‘«r t^’.'hc ch.r.ot.fs , position plus the Chester's width (t,[« <- 

tv[3]). 

addto dispframe 

& ( <f f indchar => (Cmx. 

('& => tv SELF mfindc t my. 

t v £ 2 j ( 0 => Going outside frame? 

ft {last charx 0 chary}) 

(tv[l] = last => (t > tv[2] + tv[3] =» (tv[2] *■ t) 
tv[l]*■ tv[l ] - 1) 
tv[lj *■ tv[ 1 ]-1.) 
ttv.))l 


Some other useful additions to basic system classes 


Gr* bottomscreen disp (frmy + frmht)\ 


Where disp is lowest possible window on the screen^ 
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addto dispframe Reset frame and window parameters. 

(3*( <(dispset =» (<S*frmx 4- (3*winx <- ;. 

&*winht <- bottomscreen - (3*frmy *- (3*winy 4- 
( 3 y frmwd <- &winwd <- :.))\ 

&(<ffsh0W ((<fof => (<3*buf 4- Reset text information 

(3*last «- :.)) 

SELF clear . 

( 3*frmht <- 1. 

SELF show ) ) ! Then show the display. 

*iddto number <3*(<f chars => (t stringof SELF ))! 

.Reading the keyboard: Algorithm A 

The following routine, as part of the paragraph class definition, will repeatedly handle one character 
-at a time, adjusting buf and the index pointers loci and loc2 . The effect will be to delete, replace, 
insert, and append to buf . 

Special characters Ascii code 

bs 8 

carat 2 (looks like . a small carat character that has 0 width') 

del 127 

The following expression assumes we have already computed loci and loc2. We want backspacing (bs) 
to decrease loci and delete (del) to delete the selection (buf[locl+l to loc2]). 


bufflocl + 1 to loc2] «- all carat . 

repeat ((3*char <- kbd. 

(del = char => (SELF delete) 
bs - char => 

(loci > 0 => 

(buf[loci] <- carat . 

( 3*locl 4- loci - 1.)) 

(loci - loc2 => 


[[buf length < (3*last *- last+hole 
(&*buf 4- buf[l to last])) 
buf [loci + hole + 1 to last] <- 
buf [loci + 1 to last-hole] 
buf [loci-b 2 to *3 => loc2*-locl+hole] 4-all carat)) 
buf[(3*locl 4- loci + 1] 4- char) 

bbck =» () 

pdisp fshow of buf last. 

done) 


Replace each character in the selected text by the 0 width 
carat character. 

Get character. 

Is it delete? 

Is it the backspace? 

If so, test to see if loci is at beginning of text. 

If not, can decrease loci and replace with the carat. 
Otherwise, do nothing. 

Here if character not a backspace. Ordinarily can replace 
buf(locl) by character, and increase loci; special case exists 
if loci = loc2. The special algorithm says that a ’’hole" into 
which characters can be stuffed should exist, always 
providing extra input space permits replacements larger than 
the selected text. 

Start by making certain there is room for the “hole” to 
be inserted after loci (dr'hole «- 30). 

There's room for the hole so slide over the part to the 
right of loci and replace the middle "hole" part with carats. 
The "hole" created has 0 width and therefore is not seen. 

This is always done regardless of input character... 
just replace the character. 

See if there is more to do. 

If not, replace/insert/append/delete completed. 
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Making selection if button pressed: Algorithm B 

SELF cleanup. Remove old indications of "hole" and of complementing. 

SELF showselection of pdisp findchar. Find the first location and set locl,loc2 and pl«p2. 

repeat 

As long as the button is pressed, keep changing: 
complemented area and loc2. 

Get next location. 

If no change, do nothing, 
t is new location's point. 

Complement changed area (possibly back to white}. 

Store the new loc2 and p2. 

Done if button 4 not pressed. 

Indicate no characters typed yet. 

When completed, make certain first location 
is earlier in the window than second location. 

Above algorithm assumes the following addition to the class atom: 

addtO atom C^(^fswap => (C&^xi-SELF eval . Lets each instance of atom receive new value 
SELF f It ijj! and return the old value. 


(button 4 => 

(Cir*char <- pdisp findchar, 
charflj = loc2 => () 

(&*t<-point char[2J char[4], 

(char(l) < loc2 => (dfcomp pdisp t p2) 
dfcomp pdisp p2 t) 

(&*loc2 <- char[l], (ff*p2 «- t) 
done) 

0*char false. 

loc2 < loci => (Gr 3 loc2 <- ( s*locl swap loc2. 
(&*pt <- (§*pl swap p2) 



Now the class definition for a paragraph 

to paragraph t tv I temporary variables 

pdisp char buf last loci loc2 pi p2 ht / instance variables 

dfcomp hole carat bs del class variables 

(init => (to dfcomp df pi p2 (above definition ) Define in context of class. 

( tr*hole <- 30. C^carat <- 2. ( ^bs^-8. dhdel <- 127) 

retrieve => (filin :.) Create instance from a file; filin checks if value is a file. 

<f store => C&t *■ file :, Write text such that, when evaluated 

t <- ' sched +■ paragraph of * creates instance of a paragraph 

t «- 39. t buf. t +- 39. and stores in scheduler. 

t «- ' '-blast chars + ' at '+ pdisp (frmx chars + ' 1 + 
frmy chars + ' ' + frmwd chars), 
t close.) 

CREATE INSTANCE 

isnew ^ ((&*pdisp «- dispframe 0 10 fontheight string 0 noframe. 

9 

Create display area. 

(&*buf *- (<fof r> (:) string 0) 

C&^locl <- (&*loc2 Ctr*last «- buf length. Create indices. 

<fat => (SELF show at (:) (:) :) If told where, show area. 

pdisp frame black..) Frame the window. 
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SEE TEXT 

show Z> ( (<fat => (pdisp dispset (:) (:) :)) Reset display location. 

pdisp fshow of buf lost ) Tell text information. 

SCHEDULING MESSAGES 

stdrtif C H pdisp hasmouse) Condition for starting is mouse inside the area. 

a 

quitif (Itpdisp hasmouse is false) Quit if mouse no longer in area. 

-agjr firsttime => (pdisp hasmouse => (&ht *- pdisp frmht. SELF show selection)) 

eachtime =» (kbck => Typing anything? 

(Algorithm A) Keyboard algorithm 

button 4 Pressing button to make new selection? 

(Algorithm B)) 

lasttime => (pdisp* S (&* frmht «- ht). Reset frame height to clear black frame. 

pdisp frame white . 

SELF cleanup. 

pdisp frame black.) ^ 

MANIPULATING THE TEXT 

Upon entering the window, set the cursor at the end for 
automatic append; can receive parameter values from the 
message. 

Determine value of first selection: as message or as last 
text character. 

{last pdisp (last=0 ^(frmx)charx) 0 pdisp (last= 0 =» (frmy)chary)}). 

(S^locl <-&*loc2<-tv[ 1 ]. 

(&*pl «- point tv[2] tv[4]. 

0*p2 <- point tv[2]-hi tv[4], p2 is a little wider to help "see H current place. 

dfcomp pdisp pi p2.) 


showselection 


(<sr*tv *- 
(<(of = 


cn 


delete => Reorganize buf removing text between loci, loc2. 

((s^buf 4- buffi to loci J -hbuf [loc2 to last], 

loc2 <- loci. &*p24-point pi x-hl pi y. 

(sr*last 4- buf length) 

*<fcleanup => ((char (&*char 4- false. Clear the window of complemented text and 

0*buf 4 - buffi to loci] -h buffloc2 + 1 to last]. remove the ’’hole”. 

Oblast 4- buf length. 

(thloc2 4- loci.)) 
pdisp fshow of buf last) 

is => (ISIT eval) 

s =» (f o eval))\ 


paragraph initl 
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It is possible to schedule a paragraph text editor by typing 


sched «- paragraph\ 


window appears in the upper left 
no width or height. 


corner of the screen with 


sched *■ paragraph at 100 50 200 f 


window appears at 100, 50 with width of 200. 


sched <- paragraph of 'I am a text editing window'l 

window appears in upper left corner with the text showing. 
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Classes for Building Models 
^Simpula": Simula-style Simulation 

We have chosen a simple example of a scheduling mechanism for building simulations of dynamic 
environments such as hospitals and classrooms. The basis for this example is the simulation language 
Simula (a major inspiration for Smalltalk). 

The basic entities of Simula are instances of classes and ALGOL-like data-types. Simula simulation 
operates primarily through scheduling pseudoparallel processes by means of a sequencing set which 
holds the quiescent processes sorted by desired time of activation. Associated with each process are the 
object itself, the time the object is scheduled to wakeup and do something, and a message telling the 
object what state to go to next. This message was either constructed by the object when it last ran, or 
is a default message (we will use run). 

'•pjier© is a system time (noiu) which indicates where the simulation s progress has currently reached. 
All activation times in the sequencing set are equal to or greater than the system time. A great idea 
of Simula is that system time is not advanced until there is no more computing to be done by the 
currently active event. This means that an event can consume an arbitrary amount of computing 
power; then, if there is nothing scheduled for the next one hundred (simulated) years, the system 
time will be advanced one hundred years without any clock ticking in between. 


An item in the sequencing set (SQS) is an instance of an Event Notice , a simple structure containing 
the object to be activated (ob), the desired event time Retime, a floating point number), the message 
telling the object what state to go to next (msg), and next and preu—indicators to the next and 

previous elements in the sorted set. 

Event Notice 


| ob | msg | etime | prev | next | 


SQS 


| Event | Event | Event | 
| Notice | Notice | Notice | 


Note that one object can be scheduled as more than one event, each event applying a different 
message to (requesting a different activity from) the object. Hence we place the message in the 
Event Notice rather than storing it as information local to the object. This is an improvement over 
Simula which only allows one phase of an event to be scheduled. The main activity of the SQS will be 
to add to, delete from, and sort the set of Event Notices. This job differs according to where the 
event time is stored, that is, in the Event Notice or more local to the object. 

to EventNotice prop / ob msg etime preo next 
(isnew =* ( (shob*-:. &msg*-:. (Retime*-:. & prev*-:. & next*-:.) 

(Csr’prop <- S. <f+- => (ftprop *■ :] ftprop eval) 


, <is =» (ISIT eval))i 
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The sequencing set is not much more complex. It maintains now] current , the current process under 
activation; and the ordered set of Event Notices, set. In order to make this explanation simpler, we 
will include two dummy Event Notices with event times 0.0 and ’’infinity”, that will, by default, be 
the first and the last elements in the set. This means that we will not have to check for a special 
termination condition, and that we avoid the possibility of a circular list. We always select the 
second item in set as the next active event. 

We need to provide messages to schedule a new event, to remove an event, and to activate the next 
event, as well as initialization for the set itself. 


(S^Simpula SQS® Initializing the set means to create two Event Notices, the first and last 

scheduled events. The event objects are meaningless, so we choose to define 
them as 0^ the first time is 0.0, which is also the value of now; the last i*' 
a large number like l.OelOOO. Simpula’s set is an Event Notice linked in an 
ordered chain to other Event Notices 


| ob 

1 o 

- 4 - 

1 



1 msg 

1 o 

1 



| etime 

| 0.0 

1 



| prev 

1 0 

1 



| next 

1. 


- | 




-1 

1 

1 


EventNotice 


1 

1 


| ob 

1 0 


1 


1 msg 

1 0 


1 


| etime 

| l.OelOOO 
■ 

1 


| prev 

I •— 




| next 

1 0 


1 



Simpula schedule blobl An EventNotice, whose object is blob, whatever it may be, is added to th^ 

chain of events. By default, its msg is d?*(run) and its event time is the 
same as now. In the above example, this new EventNotice will be the- 
second event. The (default) event whose object is 0 and event time 
l.OelOOO is always the last event in the set. 

Simpula schedule blob for dr* (changeplace) at 20\ 

The object is scheduled as explained above, but the msg is C^*(changeplace>, 
and the event time is Simpula’s now+20. 

Simpula activatel Get the next scheduled event (newOb), set current to newOb's object* set 

now to newOb’s etime, and send current newOb's message. 

Simpula removei Takes and returns the next event off the set, meanwhile reorganizing the* 

chain of Event Notices. 


Simpula fulli 


Reply is true if there is an event, other than the two dummy events^ 
scheduled. 
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to SQS finger newOb time msg / now current set 

f isnew => ((3*set EventNotice 0 0 0.0 0 0. 

seVs next <- EventNotice 0 0 l.OelOOO set 0. 

(&*now <- 0.0) 

schedule => (<3*newOb «- :. 

<3=>msg +- (<ffor*(:) <3*(run)). 

(3*time «■ (*Z$at => (now + .’J now). 

(3*finger <- set’s next. 

repeat (time - finger's etime => fC zr*finger *- finger's next, again) 
&*newOb EventNotice newOb msg time finger's prev finger. 
newOb's prev's next <- newOb. 
finger's prev <- newOb. 
done)) 

<factivate =» ((3*new0b <- SELF remove. 

t&^now newOb's etime. 

(^current newOb's ob. 
apply current to newOb's msg) 

remove => (^3finger <- set's next. 

finger's next's prev <- finger's prev. 
finger's prev's next finger's next. 
f finger) 

<ffull (f 0 * set's next ob) 

*tfprint => ((3* finger <- set's next. 

repeat (0 = finger's ob => (done) 
finger's ob print. 

<3= finger <- finger's next.)) 

<('s => (t 8 eval) 

<fis => (ISIT eval))! 


The above definitions are quite general, having two properties that might not be necessary in l some 
applications: (1) backwards pointers for an EventNotice which take extra time to rechain, ( ) 

the instance variable current for SQS. As a response to the message activate, we say 


<3*current «- newOb's ob. apply current to newOb's msg. 

We might instead have 

evapply newOb's ob to newOb's msg. 

^eliminating the instance variable. 

Now to test it out. 

By convention, a scheduled object, such as a blob, must respond to the default message (run) or to 
some equally useful activation message. 


EXAMPLE SMALLTALK CLASS DEFINITIONS 


Page 120 




to blob x y I sides © 

(isnew => ((Asides «- 0. <sh © «- turtle. © width «- 2. SELF draw ) 

<frun r> (SELF undraw. SELF draw . 

Simpula schedule SELF at avgwaitime+rand mod 100) 

<(draw =» (© penup goto <£*x <- rand mod 500 C <- rand mod 500 pendn up. 
poly C &*sides<- (sides -*■ 1) mod 7. 

© penup goto x y pendn up. ) 
undraw => (© white, poly sides. © black) 
print => () 

=> (t o eval) 

<(is * (ISIT eval))l 


to poly s 

(do ((&*s<-:) f© go 10 turn 360/s))l 
C t*i <- 13! 

C&^avgwaitime «- 10O!* 
to rand (H C &*i *- i * 5)i 

Try 

(§*Simpula SQS| 

Simpula schedule blobi 
Simpula schedule blobi 
repeat (Simpula activate )i 

or 

PUT USER &DO &(kbck => (ev) Simpula activate)\ 

The result is two polygons bouncing around the screen. With the modified USER task, it is possible 
to temporarily interrupt the bouncing in order to type some messages (such as scheduling another blob 

or examining the scheduled events). 

Note, another rand expression, that avoid the need to initialize the variable and also allows ranges t<*- 
be specified, is given below. 

randl 

rand between 10 40\ 

o 

to rand low high / / n 
( C tr*n <- (null iir> (13) n*5). 

<fbetween => ((.i/^low «■ (S^high + 

11 low + n mod high + 1 - low) 






* n)i 
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A Simple Hospital Simulation 

A hospital will be composed of departments (including admissions, surgery, wards, labs), each of which 
has a number of resources (such as attendants, doctors, beds, operating tables) and patients. A typical 
patient (there will be many of them) has a name , age , and so on, a schedule which contains a route 
through the hospital specified at admissions, and a reference to the patient's current department. 
The patient visits the indicated department on the schedule, stopping at the department’s front desk 
to check to see if there is a resource available for him. If there is, the patient will occupy that 
^resource for some average treatment time. If there is no resource available, the patient must wait 
indefinitely on the department's line until one is available. After consuming the resource, the patient 
will check the waiting line and send the next waiting patient, if any, to the desk. 

If this simulation is set up with typical entrance intervals and treatment times found in a given 
hospital, an examination of the department’s lines after the simulation is in progress will give some 
insight into the "bottleneck” departments of the hospital. 

t 

"The hospital can include a Smalltalk vector of elements, each of which is a department. 
tsr'dept «- vector 20\ 

will contain 20 departments. A department has two main parts: resources available and its waiting 
line. It also has a name and an average treatment time for each patient. 

to department prop / resources line available nme treatime 

(isnew => ((^available <- resources <- (w^line SQS. 

(tr’nme <- stringof o. 

(tr’treatime «- (<jtime => (:) avgwaitime) ) 

<ftake => (Gr*available <- available - 1) 

<fgiveup => available +■ resources min available+1) 

=> (Ctr*prop <- o. <f<- (t prop <- :) If prop eval) 

<fis => (ISIT eval))\ 

Initialize the departments for 1 to 5 resources. 
for j to dept length (dept[j] <- 

department rand between 1 4 noname time 20* rand between 0 4)\ 

-We have to define a typical patient. 

(^routine stream of {dept[3j dept[6] dept[7j }I 

Setup for the patient’s schedule. 

routine reset. 8 Reset the stream to the first item. 

t&*jane *- patient 'jane' 22 routinel Create jane as a patient whose name is jane, age 22, schedule 

to be in three departments: 3, 6, and 7. Notice that the 
third message to patient must be an instance of stream 

The patient is scheduled to wakeup now. 


Simpula schedule jane for (&*(wakeup)\ 
jane makeup! 


The patient schedules herself to visit the department 
(newplace). 
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jane vis 


isit! 


jane treatmenti 


The patient sees if there are available resources in thi 
department. If so, the patient takes a resource and schedule* 
herself to move on after the department’s treatment tixne^ 
otherwise, she enters the waiting line. 

The patient can also receive this message by being removed 
from the department's line and scheduled again for a visit. 

The patient gives up her resource in the current department 
and wakes up the next patient, if any, in the waiting line; 
if there are other departments to visit, she schedules herself 

to visit the next one. 


to patient prop / nme age schedule newplace 

(isnew => (<§*nme «- &age «- &schedule «■ 

(^newplace schedule next) 

<f visit (newplace's available > 0 =» 

^^impula schedule SELF for &(treatment) at new place's treatime) 
newplace's line schedule SELF for waiting).) 

<f treatment => (newplace giveup. 

(newplace's line full => (&prop + newplace's line remove . 

prop' s ob wakeup)) 

schedule end d> ( ) Ctr*newplace schedule next. SELF wakeup.) 

<f wakeup => (Simpula schedule SELF for &(visit)) 

<(print (nme print . sp.) 

=* (<§*prop <- 8. <f<- => (tprop <- :) tprop eval) 

<(is * (ISIT eval ))! 

environment. The main USER task might be 

kbck => (Simpula schedule talkwindow for wakeup) ) 

Simpula full => (Simpula activate) 

•l ) Thp dcDartment might have three stations: a desk for the patient coming to visit, a_ 

intention of pointing at the object is to schedule it for talking about itself. The USER task might 
now be 
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kbck =» (Simpula schedule talkwindow for <s*(wakeup)) 

O < mouse 7 => (Simpula schedule (findobject at mx my) for Gr(talk)) 
Simpula full =» (Simpula activate) 

instances of patient and department should respond to the message talk. 
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This index was prepared from a Smalltalk Information Storage and Retrieval System in which the 


contents 

of the sections of the 

manual 

are referenced. As a result, the pages given below generally 

refer to 

the beginnings of the 

sections 

in which the information can be found. We have identified 

three types of indexed items: 1 

basic system classes, utilities, and examples created especially for this 

manual. 

The basic classes and 

utilities 

are provided in the Smalltalk system when you type resume 

small, sv. 

The index distinguishes between pages where the items are defined (def) and those where 

the item 

is referenced (ref). 
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8 
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48 
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23 

1 

m 
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39 
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i 
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92 
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ref 9, 11, 17, 32-35,44 


base8 
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77 
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42 
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98 
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2 
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brush 
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38 
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78 
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92 
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82 
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16 
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9 
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19 
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19 
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39 
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96 
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27 
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87 
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77 
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42 
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86 
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27 
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110, 114 
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